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ABSTRACT 

This  two  volume  final  report  summarizes  the  analysis,  design  and  development 
activities  associated  with  the  Educational  Technology  Assessment  Model  (ETAM). 

It  contains  relevant  background  information  and  results  of  prior  studies  lead- 
ing to  the  finalized  ETAM  procedures  and  computerized  routines.  A comparison  of 
the  manual  versus  the  automated  approach  is  included.  Data  base  structures  and 
the  ETAM  program  flow  are  described  and  related  to  each  other.  The  appendix 
includes  the  results  of  a study  on  the  indexing  of  innovations  and  the  assign- 
ment of  taxonomic  descriptors  to  courses,  job/tasks,  and  instructional  vehicles. 
The  appendix  also  includes  program  documentation  on  the  ETAM  Range-of-Effect, 
bibliographic  references,  and  additional  information  supporting  the  ETAM  design. 
The  detailed  ETAM  procedures  supporting  this  report  are  included  in  TAEG  Report 
No.  12-3,  Phase  II-A  Report.  TAEG  Report  No.  32,  The  Development  of  Scaling 
Procedures,  supports  the  computerized  approach  taken  in  scaling  variables. 

Other  important  background  and  reference  information  can  also  be  found  in  a 
report  written  by  Drs.  R.  B.  Miller  and  A.  F.  Smode  titled  "Major  Innovations 
in  Training  Technology." 

Phases  I,  II,  II-A,  III  and  IV  were  accomplished  by  the  IBM  Federal  Systems 
Division  with  the  Training  Analysis  and  Evaluation  Group,  Orlando,  Florida, 
providing  technical  guidance  and  support.  The  overall  DOTS  objective  is  to 
provide  Naval  Education  and  Training  Command  (NAVEDTRACOM)  management  with 
additional  tools  in  the  form  of  computerized  mathematical  models  to  assist 
in  predicting  the  quantitative  impact  of  training  resource  decisions.  The 
planning  process  will  be  enhanced  by  providing  decision  makers  with  the 
capability  to  economically  and  rapidly  consider  a wider  range  of  alternatives. 

Phase  I was  a study  and  definition  effort  resulting  in  a complete  functional 
description  of  the  NAVEDTRACOM;  a strategic  definition  of  the  social,  political, 
economic  and  technological  environments  pertinent  to  the  naval  education  and 
training  system  in  the  1980's;  a list  of  existing  and  potential  models  amenable 
to  computerization  and  to  improving  the  decision-making  process. 

Phase  II  was  devoted  to  the  selection  and  development  of  three  mathematical 
models  from  the  Phase  I list  of  candidates.  The  three  were  the  System  Capabili- 
ties/Reguirements  and  Resources  (SCRR),  the  Individualized  Training  Simulation 
System  (ITSS),  and  the  Training  Process  Flow  (TPF)  models. 

Phase  III  centered  on  evaluating  the  selected  models  at  the  Fleet  Training 
Center,  Norfolk,  VA.  An  important  recommendation  from  the  Test  and  Evaluation 
conducted  during  Phase  III  was  that  DOTS  should  investigate  model  applications 
at  higher  command  levels. 

Phase  IV  responded  to  the  recommendations  of  Phase  III  by  (1)  operating  and 
testing  at  TRAPAC,  San  Diego,  CA,  the  models  developed  in  Phase  II,  and  (2) 
developing  a new  Training  Requirements  Analysis  Model  (TRAM)  and  field  testing 
it  at  CNTECHTRA,  Memphis,  Tenn. 

The  major  effort  supporting  Phase  II-B  was  the  ETAM  procedural  development 
during  Phase  II-A.  In  addition  to  the  procedural  development,  computer 
applications  were  described,  scenarios  using  the  ETAM  procedures  were  pre- 
pared, and  ETAM  validity  and  logical  structure  were  confirmed. 
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FOREWORD 


The  Design  of  Training  Systems  (DOTS)  project  objectives  are  in  conso- 
nance with  the  requirements  of  Advanced  Development  Objective  ZPN07 
(formerly  ADO  43-03X),  Education  and  Training  Development.  ZPN07  in- 
cludes a number  of  projects  concerned  with  demonstrating  and  evaluating 
the  technical,  operational  and  financial  feasibility  of  applying  advanced 
technological  applications  to  Improving  the  training  process. 

The  Bureau  of  Naval  Personnel  Initiated  the  original  ADO  In  1966  to  make 
naval  training  more  responsive  to  the  changing  times.  As  one  project 
under  this  effort,  DOTS  was  designed  to  improve  the  process  of  managing 
training  resources  through  application  of  the  techniques  of  system  analysis 
and  system  simulation  as  accomplished  through  mathematical  modeling.  The 
end  objective  Is  a family  of  computerized  mathematical  models  enabling 
training  management  to  more  rapidly  predict  the  Impact  of  changes  in  train- 
ing resource  availability  or  requirements. 


The  majority  of  education  and  training  was  reorganized  In  1971  under  one 
command,  Chief  of  Naval  Education  and  Training  (CNET).  Because  of  this 
change,  DOTS  responsibility  was  transferred  to  CNET  in  March  of  1972; 
more  specifically,  to  the  Training  Analysis  and  Evaluation  Group  (TAEG), 
Orlando,  Florida.  The  new  CNET  organization  greatly  increased  the  potential 
benefits  to  be  gained  from  the  Increased  application  of  new  management  tech- 
niques and,  therefore,  from  the  DOTS'  R&D  effort.  DOTS  began  In  February 
of  1973,  with  the  majority  of  tasking  being  contracted  to  the  International 
Business  Machines  Corporation,  Federal  Systems  Division,  Cape  Kennedy 
Facility,  located  at  Cape  Canaveral,  Florida. 


The  Training  Analysis  and  Evaluation  Group,  Dr.  A.  Smode,  Director,  project 
team  members  Messrs.  M.  Middleton  and  W.  Lindahl,  complemented  the  con- 
tracted effort  by  providing  direction  and  guidance  and  In  establishing 
organizational  Interfaces. 


The  model  was  developed  by  Mr.  L.  R.  Duffy,  Dr.  R.  B.  Miller,  and  Mr.  J.  D. 
Staley.  Mr.  R.  E.  Hallman  and  Mr.  L.  R.  Duffy  provided  management  for  the 
project. 


11 


TAEG  REPORT  NO.  40 


TABLE  OF  CONTENTS 

APPENDIX  PAGE 

A STUDY  OF  DESCRIPTOR  AND  INDEXING  TECHNIQUES  FOR 

ETAM  RANGE-OF-EFFECT  ANALYSIS 

INTRODUCTION  A-l 

PROCEDURES  FOR  INDEXING  THE  INNOVATION  . A -2 

PROCEDURES  FOR  INDEXING  INSTRUCTIONAL  VEHICLES, 

TRAINING  COURSES  AND  JOB-TASKS  A-ll 

INDEXING  OBJECTIVES  A-l 2 

SEARCH  RATIONALES  AND  STRATEGIES  A-l 7 

B KEY  FIGURES  AND  ILLUSTRATIONS  REFERENCED  IN  THIS 

ETAM  REPORT 

C TRAINING  COST  MODEL  PROGRAM 

D ETAM  RANGE-OF-EFFECT  PROGRAM  DOCUMENTATION 

SECTION  D.l  INTRODUCTION  D.l-1 

ORGANIZATION  D.l-1 

EQUIPMENT  ENVIRONMENT  D.l-1 

PROGRAM  ENVIRONMENT D.l -2 

ETAM  SYSTEM  INITIALIZATION  D.l -3 

LOAD  OF  THE  ABBREVIATED  COURSE  DATA  BASE  . . D.l -3 

ABBREVIATED  VEHICLE  DATA  BASE  LOAD  . . . . D.l -6 

ABBREVIATED  TASKS  DATA  BASE  LOAD D.l -6 

ESTABLISHING  A NEW  ETAM  PROJECT D.l -9 

EXECUTION  OF  THE  RANGE  OF  EFFECT  SEARCH  . . D.l -9 

PROCESSING  OF  SEARCH  RESULTS  D.l -11 


TAEG  REPORT  NO.  40 


TABLE  OF  CONTENTS 

APPENDIX  PAGE 

SECTION  D.2  PROGRAM  DOCUMENTATION  D.2-1 

PROGRAM  PI D.2 -2 

PROGRAM  P2 D.2-7 

PROGRAM  P3  D.2-1 3 

PROGRAM  P5A  D.2-1 7 

PROGRAM  P5B  D.2-22 

PROGRAM  P5C  D.2-27 

PROGRAM  P7  D.2-32 

PROGRAM  P7A  D.2 -38 

PROGRAM  P7B  D.2-41 

PROGRAM  P8  D.2-47 

PROGRAM  P8A  D.2-52 

PROGRAM  P9  D.2 -58 

PROGRAM  P9A  D.2-62 

PROGRAM  PI 4 D.2-68 

PROGRAM  PI 6 D.2-72 

PROGRAM  PI 7 D.2-79 

PROGRAM  PI 8 D.2-84 

PROGRAM  P20  D.2-87 

SECTION  D.3  NCSS  EXECUTIVE  SEQUENCES  ASSOCIATED  WITH  . . D.3-1 

MULTIPLE  PROGRAMS 

SECTION  D.4  ETAM  FILE  FORMATS,  AS  IMPLEMENTED  ....  D.4-1 

SECTION  D.5  MISCELLANEOUS  CONTROL  CARD  SOURCE  ....  D.5-1 

LISTINGS 


iv 


TAEG  REPORT  NO.  40 


TABLE  OF  CONTENTS 

APPENDIX  PAGE 

SECTION  D.6  SOURCE  LISTINGS  OF  PL/1  PROGRAMS  D.6-1 

E AN  INTERACTIVE  COMPUTER  INTERVIEW 

F BIBLIOGRAPHY 


v 


TAEG  REPORT  NO.  40 


THIS  PAGE  INTENTIONALLY  LEFT  BLANK. 


vi 


TAEG  REPORT  NO.  40 


LIST  OF  FIGURES 


FIGURE  NO. 


A-l  FORMAT  OF  DESCRIPTORS  FOR  INDEXING  AN  INNOVATION  OR 
DATA  BASE  ENTITIES:  TRAINING  COURSES 

A- 2 FORMAT  OF  DESCRIPTORS  FOR  INDEXING  AN  INNOVATION  OR 

DATA  BASE  ENTITIES:  JOB  TASKS 

A-3  FORMAT  OF  DESCRIPTORS  FOR  INDEXING  AN  INNOVATION  OR 
DATA  BASE  ENTITIES:  INSTRUCTIONAL  VEHICLES 

A-4  EXAMPLES  OF  ENTITY  SELECTION  BASED  UPON  INNOVATION 
DESCRIPTORS  (TRAINING  COURSE  DESCRIPTORS) 

B-l  SUMMARIZED  PRELIMINARY  FEASIBILITY  PROFILE  . . . 


B-2  COST/SAVINGS  DATA  SHEET 


B-3  DECISION  TREE  FOR  ASSESSMENT  OF  TRAINING  INNOVATION 
(EXAMPLE  OF  FORM  COMPLETED  WITH  INITIAL  OUTCOME 
VALUES  AND  PROBABILITIES) 

B-4  DECISION  TREE  FOR  ASSESSMENT  OF  TRAINING  INNOVATION 
(EXAMPLE  OF  FOLDING  BACK  PROCESS) 

B-5  FORMAT  FOR  DESCRIBING  A SUPPLEMENTARY  BENEFIT  OR  . 
LIABILITY 


D.l-1  INITIALIZATION  (STARTUP)  OF  ETAM  SYSTEM  DATA  SETS  PRIOR 
TO  CONSTRUCTION  OF  THE  ABBREVIATED  DATA  BASES 


D.l-2  DETAIL  SYSTEM  FLOW  ABBREVIATED  COURSE  DATA  BASE  LOAD  . 

D.  1-3  DETAIL  SYSTEM  FLOW  ABBREVIATED  VEHICLE  DATA  BASE  LOAD  . 


D.l-4  DETAIL  SYSTEM  FLOW  ABBREVIATED  TASK  DATA  BASE  LOAD  . . 


D.l-5  DETAIL  SYSTEM  FLOW  PROJECT  FILE  GENERATION  AND  RANGE-  . . 

OF-EFFECT  SEARCH 


D.l-6 


DETAIL  SYSTEM  FLOW  RANGE-OF-EFFECT  SEARCH  RESULTS 
PRINT/EDIT 


. PAGE 
A-4 

A-5 

A-6 

A-7 

B-3 

B-4 

B-5 

B-6 

B-7 

D.l-4 

D.l-5 

D.l-7 

D.l-8 

D.l-10 

D.l-12 


vii 


TAEG  REPORT  NO.  40 


\ 


THIS  PAGE  INTENTIONALLY  LEFT  BLANK. 


vi  i i 


TAEG  REPORT  NO.  40 


i 


APPENDIX  A 

STUDY  OF  DESCRIPTOR  AND  INDEXING  TECHNIQUES 
FOR  ETAM  RANGE  OF  EFFECT  ANALYSIS 


INTRODUCTION 

A major  topic  in  the  Educational  Technology  Assessment  Model  (ETAM)  is  a body  of 
knowledge  and  a set  of  procedures  for  determining  the  range  of  courses,  job- 
tasks,  and  instructional  vehicles  in  the  Navy  that  can  be  affected  by  a proposed 
innovation.  This  range  establishes  the  multipliers  of  benefits,  liabilities  and 
costs  that  are  potential  in  the  innovation,  and  therefore  central  to  decisions 
about  adoption  or  rejection. 

The  initial  phase  of  ETAM  specified  a taxonomic  structure  within  and  between 
major  classes  of  training  entities--courses  of  instruction,  job-tasks,  instruc- 
tional vehicles.  Elements  in  the  classification  system  were  each  identified  and 
clearly  defined.  Taken  all  together,  the  terms  in  this  classification  system 
were  intended  to  structure  the  essential  functions  in  training  technology.  The 
terms,  as  sets  of  functional  descriptors,  were  to  be  used  for  the  practical 
indexing  of  entities  such  as  courses,  job-tasks  and  instructional  vehicles  in 
the  Navy's  inventory.  The  same  set  of  terms  (and  their  defining  concepts)  would 
also  be  used  in  "describing"  the  innovation,  or  rather  in  "indexing"  the  innovation. 

The  descriptor  set  used  in  indexing  the  innovation  could  then  be  applied  to  the 
data  base  inventories  of  Navy  training  courses  (for  example)  in  making  a first 
pass  at  selecting  those  courses  that  were  relevant  to  the  innovation--perhaps 
50  out  of  over  4,000  courses,  or  200  out  of  over  4,000  courses. 

This  study  reports  the  moving  of  this  background  effort  towards  implementation. 

A procedure  is  described  for  indexing  an  innovation  so  as  to  create  the  content 
of  a search  query  to  be  applied  by  automatic  search  on  a computerized  data  base. 
Techniques  are  described  for  indexing  data  base  entities  such  as  training  courses, 
job-tasks  and  instructional  vehicles.  The  same  descriptor  set  is  used  that  is 
applied  to  the  innovation.  Data  about  each  of  the  entities  are  contained  in 
Navy  listings  with,  usually,  brief  descriptions. 

Because  the  application  of  subject  matter  descriptors  to  innovations  and  to  data 
base  entities  with  the  intent  of  using  one  to  search  on  the  other  requires  a 
good  deal  of  human  judgment,  the  strategies  for  indexing  searches  and  indexing 
data  base  entities  are  discussed.  "Indexing"  means  the  selection  of  a group  of 
descriptors  to  apply  to  the  data  base  entity  or  to  the  search  specification. 

Also,  a rationale  for  the  search  procedures  specified  for  ETAM  and  for  the 
indexing  procedure  applied  to  data  base  entities  is  offered.  Simplicity  for  the 
user  is  a prime  consideration. 

The  final  judgment  of  relevance  or  irrelevance  of  an  entity  to  an  innovation  is 
not  based  on  automatic  matching  of  descriptors  in  the  search  specification  and 
data  base  entities.  Rather,  it  is  a series  of  operations  in  which  the  human 
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assessor  of  the  value  of  the  innovation  examines  progressively  more  contextual 
information  about  each  candidate  entity.  The  candidate  entities  are  those  that 
survive  each  next  step  in  winnowing  out  those  that  are  clearly  irrelevant. 

Under  some  specified  search  conditions,  the  ETAM  level  of  search  is  bypassed  for 
direct  access  to  the  applicable  Navy  data  base.  The  identification  of  entities 
relevant  to  the  proposed  innovation  enables  specific  judgments  of  magnitude  of 
benefit,  liability  and  cost  factors  to  be  taken  into  account  for  each  entity. 

The’-e-  are  specific  references  that  can  be  objectively  cited  for  assessing  over- 
all benefits,  liabilities  and  costs.  Thus,  the  validity  of  the  ensuing  decision 
to  accept  or  reject  or  modify  the  innovation  is  given  strength;  and,  if  the 
innovation  is  adopted,  the  targets  for  its  application  have  already  been  speci- 
fically, rather  than  vaguely,  identified. 

Recommendations  are  included  that,  before  widespread  adoption,  the  search  and 
indexing  procedures  should  be  tried  out  and,  where  necessary,  fine-tuned  within 
the  defined  objectives  and  theoretical  models  underlying  the  present  taxonomic 
structure  of  ETAM. 

PROCEDURES  FOR  INDEXING  THE  INNOVATION 

It  is  assumed  that  the  indexer  of  the  innovation  or  of  the  data  base  entities 
(training  courses,  instructional  vehicles,  job-tasks)  has  training  and  expertise 
in  the  index  content  and  definitions,  and  has  acquired  some  proficiency  in 
search  strategies  such  as  are  discussed  later  in  this  appendix. 

INDEXING  THE  INNOVATION.  The  following  procedures  assume  that  the  indexer  is 
familiar  with  the  definitions  of  taxonomic  terms  in  the  ETAM  Phase  1 1 -A  Final 
Report,  specifically  with  the  procedures  described  in  Task  5 for  Determining 
Range-of-Effect. 

The  source  data  which  the  assessor  converts  into  an  indexed  description  of  the 
innovation  may  consist  of  various  prose  descriptions  of  the  innovation  and  its 
intended  uses  and  applications.  The  assessor  may,  through  his  general  background 
in  training  and  training  operations  in  the  Navy,  amplify  or  modify  this  description 
in  his  thinking. 

The  assessor  will  know  that  the  hits  revealed  by  the  indexed  search  will  be  only 
candidates  for  further  examination  in  determining  relevance.  The  further  exami- 
nation will  be  made  by  the  assessor  looking  at  the  titles  of  the  entities  and 
further  contextual  descriptions  of  them. 

His  indexing  policy  will  tend,  therefore,  to  be  generous  and  lean  toward  inclusion 
rather  than  exclusion  of  possibilities. 

1.  Determine  Type  of  Innovation 

Follow  the  procedures  described  in  the  ETAM  Phase  II-A  Final  Report, 

Task  5,  in  determining  the  type  of  innovation— primarily  applicable 
to  training  courses,  job-tasks,  or  to  instructional  vehicles.  This 
step  may  be  merely  a starting  point.  It  is  possible  that  the  course 
of  inquiry  may  lead  to  all  three  classes  of  entities  being  explored 
for  potential  benefits,  liabilities,  costs  and  other  effects. 
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2.  Determine  Use  of  ETAM  Or  Other  Data  Base 

If  the  innovation  applies  with  certainty  only  to  concretely  named 
entities,  bypass  ETAM  search  and  go  directly  to  the  applicable  Navy 
data  base  such  as  CANTRAC  on  courses.  Naval  Directory  of  Training 
Devices  or  Occupational  Standards  on  job-tasks.  Use  of  the  name 
of  the  entity,  for  example  radar  ASQ-7,  as  the  key  for  identifying 
the  relevant  training  courses  or  job-tasks  or  instructional  equip- 
ment. This  is  the  fastest  and  most  efficient  search  method— using 
the  most  specific  and  uniquely  identifying  characteristics  of  the 
object  search  in  the  search  query. 

Assume,  however,  that  a subject  matter  search  rather  tahn  a named 
entity  search  is  indicated  by  the  characteristics  of  the  innovation. 
Proceed  to  Step  3. 

3.  Describing  the  Innovation  for  Search  Query 

For  reasons  already  stated,  the  description  of  the  search  query  may 
be  somewhat  broader  in  scope  than  would  be  made  by  a "tight"  charac- 
terization of  the  innovation  for  purposes  other  than  determining 
potential  range-of-effect. 

Select  the  applicable  format  type— training  courses,  job-tasks,  or 
instructional  vehicles.  (See  Figures  A-l , A-2  and  A-3.)  It  is 
advisable  to  prepare  the  descriptor  selection  with  a paper  format. 

Put  a check  mark  or  circle  around  a numbered  item  to  indicate  selec- 
tion of  a descriptor.  If  the  descriptor  is  to  indicate  a NOT  charac- 
teristic for  excluding  known  non-relevant  entities,  put  a large  nega- 
tive sign  in  front  of  the  numbered  item. 

Scan  the  entire  set  of  descriptors  on  the  format  before  making  selections. 
The  following  rules  govern  the  manner  in  which  query  descriptors  should 
be  formulated. 

o Only  an  item  with  a numerical  prefix  code  can  be  selected.  "Cate- 
gories" of  descriptions  are  underlined  (or  in  capital  letters)  and 
merely  title  a meaningful  group  or  subset  of  the  description. 

o Query  descriptors  between  categories  form  a logical  AND  relationship. 
All  must  be  present  in  the  index  descriptor  for  the  entity  if  selec- 
tion is  to  take  place.  However,  if  the  indexed  entity  in  the  ETAM 
data  base  does  not  have  an  indexed  entry  under  a given  category,  but 
the  search  query  does  have  a selected  descriptor  under  that  category, 
the  search  operation  will  ignore  that  category  in  selecting  or  re- 
jecting that  entity  in  the  data  base.  (See  examples  la,  lb  and  1c 
in  Figure  A-4). 

o Query  descriptors  within  a category  form  a logical  OR  relationship. 
Any  one  that  exists  in  the  search  query  that  is  present  in  the 
index  descriptor  for  an  entity  will  cause  the  entity  to  be  selected. 
(See  examples  6a  and  6b  in  Figure  A-4.)  This  assumes,  of  course, 
that  an  AND  relationship  does  not  exist  due  to  a query  descriptor 
in  another  category.  (See  example  5e  in  Figure  A-4.) 
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ETAM  TRAINING  COURSE  DESCRIPTORS 


Reference  knowledge 

(01)  System  purposes 

(02)  Organizational  roles 

(03)  Contexts  of  operation 

(04)  Organizational  rules 

(05)  Other 

Enabling  knowledge 

(10)  Operational  goal  criteria 

(11)  Nomenclature,  identif.,  location 

12)  Procedural  descriptions 

13)  Job  relevant  facts,  rules 
(14)  Other 

Task  formats 

(20)  Procedure  formats 

(21)  Decision  formats 

(22)  Construction  formats 

(23)  Other 

Gross  job  categories 

(30)  Operations 

(31)  Maintenance 

(32)  Service  and  administration 

(33)  Command 

(34)  Other 

Objective  task  variables  as  manifest 
in  the  training 

Equipment  and  objects  used: 

(40)  Real  (41)  Simulated  (42)  Symbolic 


Task  functions  dominant  in  training 

(60)  Goal  projection 

(61)  Scan-detect 

(62)  Identify 

(63)  Interpret 

(64)  Procedure  following 

(65)  Decide 

(66)  Construct,  plan 

(67)  Track 

(68)  Motor  performance 

(69)  Interpersonal  interaction 

(70)  Recall  task-cycle  information 

(71)  Recall  enabling  information 

(72)  Adapt  improvisationally/impromptu 

(73)  Other 

Stage  of  learning 

(80)  Orientation,  familiarization 

(81)  Task  nomenclature,  identifications, 
locations,  facts,  rules 

(82)  Task  formats  at  conceptual  level 

(83)  Procedures  at  verbal  level  only 

(84)  Task  components  with  guidance 

(85)  Entire  job- task  procedural ly  at 
barely  acceptable  mastery 

(86)  Highly  proficient  in  work  context 

(87)  Unusual  task  conditions 

(88)  Performance  at  key  man  level 

(89)  Refresher  learning 


Environments  in  which  task  is  trained: 

(43)  Real  (44)  Simulated  (45)  Symbolic 

Tools/instruments  used  in  training: 

(46)  Real  (47)  Simulated  (48)  Symbolic 

Reference/enabling  information  in  doing  task: 
(49)  Applied  (50)  Not  Applied 

Criteria  of  task  performance: 

(51)  Real  (52)  Simulated  (53)  Symbolic 


FIGURE  A-l.  FORMAT  OF  DESCRIPTORS  FOR 
INDEXING  AN  INNOVATION  OR  DATA  BASE  ENTITIES: 
TRAINING  COURSES 
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ETAM  JOB-TASK  DESCRIPTORS 
ADMINISTRATIVE 

Routine  paperwork 

(01)  Forms  filling 

(02)  Document  file-management 

(03)  Decide-encode 

(04)  Screen-filter  distribute 

(05)  Other 

Non-routine  paperwork 

(11)  Construct  messages-reports 

(12)  Analyze-interpret-evaluate 

(13)  Construct  recommendation-proposal 

(14)  Construct-plan 

(15)  Other 

Office  equipment  operation 

(21)  Typewriter 

(22)  Telephone,  etc. 

23)  Reproducer 

24)  Computer  terminal 

(25)  Teletype 

(26)  Other 

INTERPERSONAL 

Inform-instruct-manaqe 

(31)  Brief-debrief 

(32)  Instruct-train 

(33)  Assign-monitor-coordinate 

(34)  Evaluate 

(35)  Advise-inform-negotiate 

(36)  Other 

TECHNICAL 


TECHNICAL  (Cont'd) 

(55)  Interpret:  symbolic 

(56)  Interpret:  natural 

(57)  Perceptual -motor 

(58)  Cognitive  operations 

(59)  Manual 

(60)  Communicate 

With  or  without  equipment 

(6 1)  With  equipment  or  applied  to 
equipment  (paper  is  "equipment') 

(62)  Without  equipment 

Decide 

(71)  Diagnose-analyze 

(72)  Select-choose 

(73)  Under  stress  or  load 

(74)  Other 

Construct-repair-plan 

(81)  Manual  construct  or  repair 

(82)  Cognitive  construct-plan 

Track-aim-steer 

(91)  Applicable 

(92)  Time  stress 

(93)  Information-load  stress 


Procedures 

(41)  Sequential 

(42)  Strategic-adaptive 

(43)  Interpersonal -team  member 

(44)  Other 

Type  of  procedure  (main  emphasis) 

(51)  Scan-detect:  symbolic  (including  maps, 

transduced  signals,  radar) 

(52)  Scan-detect:  natural  events,  things 

(53)  Identify:  symbolic  (including  trans- 

duced signals) 

(54)  Identify:  natural  events,  things 


FIGURE  A-2.  FORMAT  OF  DESCRIPTORS  FOR  INDEXING 
AN  INNOVATION  OR  DATA  BASE  ENTITIES: 
JOB-TASKS 
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INSTRUCTIONAL  VEHICLES:  DESCRIPTOR  LIST 

Vehicle  type 

(01 ) Instructor 

(02)  static  graphics 

(03)  Animated  graphics 

(04)  Audio 

(05)  Physical  models,  demonstration 

(06)  Procedural  trainers:  symbolic 

(07)  Procedural  trainers:  physical  but  not 
functional 

(08)  Procedural  trainers:  functional 

(09)  Task  and  system  simulators 

(10)  Real  equipment,  itself 

Class  of  training  objective 

(11 ) Reference  knowledge 

(12)  Knowledge-task  specific/enabling 

(13)  Task-skill  formats 

(14)  Skill  training 

Vehicle  properties 

(21 ) Visual 

(22)  Auditory 

(23)  Kinesthetic/vestibular 

(24)  Tactile 

Type  of  content  displayed 

(31 ) Text-verbal 

(32)  Diagrammatic 

(33)  Abstracted  pictorial  representation 

(34)  Pictorial  representations 

(35)  Physical  representations 

(36)  Other 


Type  of  external  control  operated 

by  student 

(6) ) Not  applicable  directly 

(62)  Artificial  or  symbolic  response 

(63)  Representational  response  by 
symbolic  selection 

(64)  Reperesentational  response  by 
dummy  control  activation 

(65)  Task-manipulative  response, 
non-dynamic  in  time  and  force 

(66)  Task-manipulative,  dynamic  and 
interactive 

Feedback  presentation  logic 

(71 ) Not  applicable  2 

(72)  Selects  next  stimulus  item  or 

(73)  Gives  evaluation  of  preceding 

(74)  Selects  and  presents  guidance 
information 

Response  evaluation  logic 

1ST)  Not  internal --depends  on  instruc- 
tor or  student  evaluation 

(82)  Evaluation  limited  to  student's 
immediate  response 

(83)  Evaluation  extended  to  a set  of 
student  responses 

(84)  Tolerance  limits  on  acceptable 

student  responses:  FIXED 

(85)  Tolerance  limits  on  acceptable 

student  responses:  VARIABLE 


Type  of  presentation  sequence 

(41)  Library  of  frames  or  items 

(42)  Presentation  sequence  not  applicable 

(43)  Fixed  sequential  frames  or  items 

(44)  Random  selection  of  frame  sequences 

(45)  Dynamic  change  of  content  within  frame 

Selection  source  for  sequencing 

(51 ) Internal  program 

( 52)  Instructor 

(53)  Student  choice 

(54)  Student  performance 

(55)  Combinations  of  the  above 


FIGURE  A-3.  FORMAT  OF  DESCRIPTORS  FOR  INDEXING  AN 
INNOVATION  OR  DATA  BASE  ENTITIES: 
INSTRUCTIONAL  VEHICLES 
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INNOVATION 

SAMPLE 

ENTITY 

EXAMPLE  NO. 

QUERY  DESCRIPTOR 

INDEX 

DESCRIPTOR* 

SELECTED 

la 

03  21 

03 

21 

30 

YES 

b 

03 

H 

30 

NO 

c 

03 

30 

YES 

2a 

03 

03 

21 

30 

YES 

b 

FT 

22 

30 

YES** 

3a 

21 

03 

21 

30 

YES  . 

b 

21 

T2 

30 

YES 

4a 

03  -21 

03 

21 

30 

NO 

b 

03 

27 

30 

YES 

5a 

03  -21  22 

03 

21 

30 

NO 

b 

03 

22 

30 

YES 

c 

03 

2T 

22  30 

YES 

d 

03 

30 

YES 

e 

02 

21 

22 

NO 

6a 

21  22 

03 

21 

30 

YES 

b 

03 

22 

30 

YES 

* Descriptors  underlined  are  primary  basis  for  selection/non-selection. 
**No  01-05  index  descriptors  - therefore  entry  is  selected. 


FIGURE  A-4. 
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o A query  descriptor  will  select  any  entity  which  does  not  have 
any  index  descriptor  in  that  category,  provided  any  AND  rela- 
tionship is  satisfied.  (See  example  2b  in  Figure  A-4.) 

o Select  one  or  more  descriptors  within  a category.  It  is  not 
necessary  to  select  a descriptor  in  every  category--a  search 
query  could  conceivably  consist  of  only  one  descriptor  in  one 
category.  If  a descriptor  within  a category  is  selected,  it 
should  best  fit  the  innovation.  If  the  assessor  is  uncertain 
about  which  descriptors  best  fit  the  innovation  and  the  intent  of 
this  stage  in  search,  he  may  select  several  descriptors  within 
one  category  and  thereby  play  it  safe.  Descriptors  selected 
within  the  category  are  logically  OR'd  to  each  other.  This  means 
that  (with  respect  to  this  category)  the  entity  will  be  selected 
as  a hit  if  either  one  or  the  other  descriptor  (or  both)  match 
the  index  descriptors  in  the  data  base  entity.  This  OR  rela- 
tionship is  automatically  created  when  the  assessor  selects  more 
than  one  descriptor  within  a single  category.  He  may  select  as 
many  descriptors  within  a category  as  he  chooses.  The  OR  rela- 
tionship among  index  terms  serves  to  expand  the  range  of  entities 
in  a data  bases  that  will  be  selected. 

o The  assessor  may  be  aware  that  if  some  index  descriptor  appears 
in  a data  base  entity,  that  entity  is  thereby  irrelevant  to  the 
search  objective.  He  then  enters  the  number  of  the  descriptor 
along  with  a NOT  function  that  is  applied  to  it.  This  means  that 
if  an  entity  in  the  data  base  contains  that  descriptor  in  its 
index,  the  entity  will  be  rejected  no  matter  how  well  it  matches 
other  search  descriptors.  Notice  that  it  makes  sense  to  use  a 
NOT  descriptor  only  if  no  positive  descriptors  are  selected 
within  the  same  category  that  contains  the  NOT  descriptor. 
However,  it  should  be  recognized  that  what  may  be  logically 
equivalent  in  the  formulation  of  search  arguments  may  not  be 
psychologically  equivalent.  In  any  event,  if  the  assessor  inad- 
vertently includes  a NOT  descriptor  in  a category  which  also 
contains  positive  valued  descriptors,  the  search  logic  ignores 
the  NOT  item  as  a redundant  and  irrelevant  specification.  (See 
example  5c  in  Figure  A-4.) 

o The  descriptor  OTHER:  Ordinarily  in  constructing  a search 

specification  this  descriptor  is  ignored.  But  on  some  occasions, 
none  of  the  descriptors  in  a category  fits,  but  the  searcher 
feels  strongly  that  there  ought  to  be  a descriptor  in  this  cate- 
gory for  the  innovation.  He  may  ask  for  OTHER  and  be  prepared  to 
scan  through  the  miscellany  of  entities  that  the  indexers  of  the 
data  base  have  labeled  with  this  descriptor  because  they  too 
could  not  find  the  right  descriptor  for  it.  It  is  likely  to  be  a 
long  chance.  The  descriptor  OTHER  may  be  used  along  with  other 
descriptors  in  the  category  in  order  to  be  sure  that  all  the 
possibilities  have  been  examined. 


A-8 


TAEG  REPORT  NO.  40 


o The  search  specification  is  readied  for  entry.  The  assessor 
may  request--or  automatically  be  presented  with--a  display 
or  printout  of  the  entire  search  specification.  This  display 
is  identical  in  appearance  to  the  format  for  selecting  descrip- 
tors, except  that  only  the  selected  descriptors— under  their 
category  names— are  presented.  Any  NOT  descriptors  are  so  identi- 
fied in  the  display  with  a preceding  minus  sign.  The  specific 
search  operation  is  also  identified  (in  human  readable  symbols) 
with  the  innovation's  project  file  number  and  a search  entry  code 
identification.  These  data  and  the  particular  search  specification 
will  be  retained  for  retrieval.  It  should  also  be  carried  along 
with  any  output  listings  that  result  from  the  data  base  search. 

4.  The  Search  Specification  Is  Entered 

The  assessor  interactively  selects  a function  that  enters  the  speci- 
fication into  data  base  search. 

5.  Preliminary  Search  Output:  Count  of  Hits 

Because  the  search  specification  may  produce  a very  large  list  of  hits 
that  would  be  time-consuming  to  display,  the  system  begins  by  present- 
ing an  overall  count  of  items  that  match  the  search  specification.  The 
assessor  may  recognize  at  once  that  something  is  wrong  with  his  search 
specification.  He  may  then  review  and  revise  it,  and  resubmit  it  for 
search. 

6.  Inspection  of  a Sample  of  Hits 

The  assessor  may  request  display  of  a sample  of  the  listing.  Perhaps 
the  first  twenty-five  items  are  displayed  to  him.  The  content  of 
listings  in  the  ETAM  data  base  are  limited  to  the  title  of  the  entity 
and  the  Navy  data  base  code  identification  of  the  entity.  In  the 
case  of  a training  course,  the  CIN/CDP  codes  and  title  of  the  course 
are  presented.  In  job-tasks,  the  rating,  rate,  job-task  code  number 
and  title  according  to  the  Navy's  Occupational  Standards  directory  is 
given.  In  instructional  vehicles,  the  Directory  of  Naval  Training 
Devices  code  identification,  Federal  Stock  Number,  and  name  of  the 
device  are  presented. 

7.  Revision  of  Search  Specification 

The  listing  of  the  previous  search  results  to  the  assessor  may  be 
sufficient  for  him  to  revise  his  search  specification.  This  is  likely 
to  make  it  more  constraining.  He  may  resubmit  the  search. 

8.  Rejection  of  Unwanted  Entities 

In  many  cases,  the  brief  listing  of  an  entity  may  provide  sufficient 
context  information  to  enable  the  assessor  to  reject  the  entity  from 
further  consideration.  An  interactive  program  will  be  provided  to 
assist  the  user  in  the  editing  of  the  results  of  a search.  This 
manual  editing  will  allow  deletion  or  addition  of  entities  as  required. 
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9.  Saving  the  Results  of  a Search 

When  the  user  has  made  his  selection  of  wanted  entities  in  the  results 
of  a search,  the  results  will  be  automatically  saved  as  a component  of 
the  project  data  base.  The  results  are  subject  to  further  perusal  or 
editing  as  required. 

10.  Combining  the  Results  of  Successive  Searches 

For  the  purpose  of  procedural  simplicity,  the  user  is  not  given  the 
opportunity  to  formulate  complex  Boolean  search  arguments.  A compli- 
cated pattern  of  AND  and  OR  relationships  requires  the  formulation  of 
a number  of  individually  simpler  search  specifications.  The  user  may 
use  the  interactive  search  results  editing  program  to  combine  search 
outcomes  as  required. 

11.  Getting  Further  Context  from  Navy  Data  Bases 

Ordinarily  the  information  gleaned  from  entity  titles  is  not  likely  to 
be  sufficient  for  final  decisions  of  relevance  to  the  innovation. 
(Ordinarily  it  requires  less  information  to  make  the  decision  of 
"irrelevance"  than  the  decision  of  "relevance."  The  decision  alter- 
natives here  are  "relevant,"  "irrelevant,"  and  "undecided.")  The 
coding  format  in  ETAM  of  Navy  data  base  entities  may  be  equivalent  to 
that  in  the  respective  Navy  data  base.  If  so,  a machine  readable  out- 
put from  ETAM  may  serve  as  direct  input  to  the  Navy  data  base.  If 
not,  some  manual  translations  may  be  required  for  accessing  the  computer 
files.  The  paper  equivalent  of  the  same  files  may  be  accessed  by  the 
code  designators.  The  latter  makes  for  more  nuisance  and  time  in 
paper  shuffling,  but  is  not  impossible. 

In  the  final  stages  of  decision  about  relevance,  the  assessor  will  be 
scanning  candidate  course  descriptions  at  the  level  of  CANTRAC  summaries 
or  more  detailed  course  outlines  and  schedules,  NOTAP  (Naval  Occupational 
Task  Analysis  Program)  job-task  descriptions  lying  behind  the  job-task 
titles  in  the  Occupational  Standards  directory,  or  the  descriptions  in 
the  Naval  Training  Devices  listings.  In  the  case  of  instructional 
vehicles,  the  TECEP*  directory  can  give  still  greater  assistance  in 
focusing  on  equipment  and  media  types  of  relevance  to  the  inquiry. 

The  fact  that  the  listing  of  relevant  entities  will  be  coded  consistent 
to  Navy  data  base  codes  for  the  same  entities  will  enable  access  to 
cost,  usage  and  other  data  essential  for  the  processing  of  costs  and 
benefits  in  later  ETAM  tasks. 


*Braby , Richard  Ed.  D.;  Henry,  James  M.;  Parrish,  William  F.;  and  Swope,  William  M. 
Ph.D;  1975.  A Technique  for  Choosing  Cost-Effective  Delivery  Systems,  TAEG  Report 
No.  16,  Training  Analysis  and  Evaluation  Group,  Orlando,  FL. 
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12.  Entering  Results  Into  the  Project  Data  Base 

Search  results,  edited  as  required,  are  saved  as  a specific  file  of 
the  project  data  base  for  that  innovation.  The  source  search  arguments 
that  were  used  as  a basis  of  the  search  are  also  preserved  as  separate 
files  of  the  same  project  data  base.  The  contents  of  either  the 
search  arguments  or  the  search  results  could  be  applied  to  other 
innovations  that  are  equivalent  or  overlapping  in  objectives. 

COMMENT.  This  description  has  not  included  a variety  of  user  convenience  functions 
at  the  terminal.  These  deal  with  such  factors  as  user  ID,  file  ID,  correction 
of  unintended  entries,  tutorial  services  dealing  both  with  the  procedure  itself 
and  with  reference  to  the  meanings  of  each  of  the  descriptors  in  the  descriptor 
sets.  These  are  important  considerations,  but  outside  the  present  scop’e  of 
effort  to  implement. 

PROCEDURES  FOR  INDEXING  INSTRUCTIONAL  VEHICLES,  TRAINING  COURSES  AND  JOB-TASKS 

Indexing  the  subject  matter  in  a data  base  is  a discipline.  It  requires  a 
working  conceptual  knowledge  of  the  taxonomic  nomenclature,  but  no  nomenclature 
of  subject  matter  is  free  of  substantial  ambiguity.  The  ETAM  indexing  nomen- 
clature is  no  exception. 

In  ETAM,  the  objects  to  be  indexed  have  two  orders  of  ambiguity.  Although  the 
intent  of  ETAM  is  to  index,  say,  a given  instructional  vehicle,  the  indexer  must 
use  as  his  reference  not  his  direct  knowledge  about  that  vehicle,  but  a summary 
description  of  the  vehicle.  The  same  applies  to  training  courses  and  to  job- 
tasks.  The  indexer  must  be  able  to  interpret  the  often  cryptic  and  always 
incomplete  descriptions  of  the  objects  being  referenced.  His  task,  thus,  is 
more  difficult  than  the  librarian  kind  of  indexer  of  documents  who  can  work  with 
the  document  content  at  its  face  value.  Assigning  a descriptor  to  an  object  is 
therefore  an  act  of  interpretive  judgment.  The  judgment  centers  on  the  tradeoff 
between  what  is  likely  to  be  gained  for  retrieval  objectives  by  adding,  or  by 
not  adding,  a given  index  term  to  the  title  or  name  of  the  object. 

The  ultimate  validity  of  an  indexed  data  base  can  be  tested  not  by  truth  but  by 
practicality.  Assume  the  following  conditions:  A sample  of  users--in  this 

case,  of  ETAM  assessors--is  given  unrestricted  time  in  which  to  search  exhaustive- 
ly through  all  of  the  data  base  content  of  course  titles,  course  descriptions 
and  other  references.  The  objective  of  the  searches  is  to  match,  say,  training 
courses  relevant  to  the  knowledge  of  the  specific  training  innovation.  This 
process  results,  presumably,  in  a number  of  hits  on  "relevant"  objects.  Now  let 
equivalent  searchers  use  the  subject  matter  index  and  the  indexed  data  base  for 
equivalent  searches.  To  the  extent  that  results  in  hits  from  the  second  procedure 
match  those  obtained  by  the  first  procedure,  the  index  and  indexing  operations 
(taken  together  as  they  must  be)  are  valid  or  effective. 

A comparison  of  the  time  effort  and  other  costs  associated  with  each  of  the  two 
procedures  would  be  measures  of  relative  efficiency.  In  the  practical  world  of 
cost-to-benefit  ratios,  even  substantial  reductions  from  a measure  of  Utopian 
validity  can  be  offset  by  large  cost  reductions.  In  the  design  of  search  procedures, 
there  tends  to  be  a tradeoff  between  the  average  effort  spent  in  putting  the 
needle  into  the  haystack  and  the  average  effort  that  will  be  spent  in  finding 
it,  or  the  cost  of  not  finding  it  at  all. 
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This  argument  is  intended  to  motivate  the  would-be  indexer  who  correctly  realizes 
that  the  notion  of  "perfect  indexing"  is  meaningless.  In  technical  jargon, 
subject  matter  indexing  is  in  the  class  of  operations  that  are  "heuristic." 

INDEXING  OBJECTIVES 

Pol  icy  1 . The  primary  objective  of  indexing  the  data  base  is  to 
help  the  ETAM  analyst  determine  the  range-of-effect  of  a proposed 
innovation  or  change  to  existing  (or  projected)  Navy  practices  or 
facilities  for  training. 

The  indexer  should  strive  continuously  to  bear  in  mind  his  goal  object--to  give 
the  ETAM  user  a practical  tool  for  determining  the  ranqe-of-effect  of  a.  proposed 
innovation  in  training  technology  (whatever  its  nature).  The  indexer  is  creating 
a job  aid.  The  indexed  content  is  not  an  end  in  itself. 

A different  user  and  different  purposes  would  certainly  generate  a different 
indexing  content  and  structure,  and  different  indexing  policies. 

Policy  2.  In  assigning  descriptors,  err  on  the  side  of  including 
the  irrelevant  rather  than  excluding  the  relevant. 

This  policy  is  based  on  the  importance  of  getting  the  fullest  reasonable  range 
of  applicability  of  the  innovation  or  change  on  which  the  data  base  query  is 
based.  Rejects  at  this  search  level  will  not  again  be  candidates  for  inquiry. 

The  indexer  must  also  remember  that  his  index  will  generate  only  a preliminary 
pass  at  selecting  candidates,  and  that  final  decisions  to  accept  or  reject 
objects  yielded  by  the  automatic  search  will  be  made  by  the  ETAM  assessor  while 
examining  the  full  context  of  course  titles,  course  descriptions  and  so  on. 

Obviously  this  advice  must  be  followed  temperately.  It  applies  where  the  indexer 
has  reason  to  be  ambivalent  about  including  or  excluding  a given  descriptor 
while  indexing  an  object.  He  will  have  to  take  into  account  the  entire  context 
of  the  description  of  the  object  plus  his  interpretation  of  what  lies  behind  the 
description  presented  to  him.  The  significance  of  the  descriptor  to  that  context 
should  also  weight  his  decision  to  accept  or  reject.  If  the  descriptor,  or  an 
approximation  of  the  descriptor,  seems  to  have  a central  importance  to  the 
context  (of  the  course,  of  the  vehicle,  of  the  job-task  or  job)  then  he  should 
weight  in  favor  of  inclusion  and  let  the  assessor  later  decide  on  relevance. 

But  if  the  descriptor  seems  to  apply  to  a relatively  unimportant  factor  in  that 
particular  training,  or  job  or  vehicle,  there  is  little  practical  loss  if  when 
he  is  uncertain  he  rejects  using  the  descriptor.  By  so  doing,  he  increases 
search  efficiency  for  the  ultimate  user. 

Indexing  Procedure.  The  following  steps  include  the  preparation  by  the  indexer 
for  indexing  the  ETAM  data  base  content.  It  is  assumed  that  the  indexer  will 
become  a skilled  specialist  in  performing  this  function  as  contrasted  with  a 
host  of  persons  performing  this  function  only  occasionally. 

1.  Acquire  a clear  picture  of  the  task  objectives  of  the  users 
of  the  indexed  materials. 

A continuing  awareness  of  the  purpose  to  be  served  by  the 
indexed  content  should  help  the  indexer  to  do  what  is  suffi- 
cient and  necessary  for  the  ETAM  user.  The  indexer's  strategies 
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and  decisions  can  remain  clearer  and  more  relevant  if  purpose 
is  restricted  to  specific  needs.  The  indexing  of  content  for 
retrieval  is  a reciprocal  operation  to  querying  and  searching. 
Ideally,  the  indexer  acquires  some  experience  in  simulated 
search  problems  and  thus  becomes  sensitized  to  the  searcher's 
difficulties. 

2.  Learn  the  nomenclature  and  concepts  of  the  indexes. 

The  meaning  of  each  index  term  is  given  in  the  ETAM  reference 
material.  In  many  cases,  these  meanings  are  somewhat  specific 
to  the  ETAM  context.  For  example,  the  term  "decision  format" 
cannot  be  sensibly  used  without  the  specific  ETAM  definition. 

The  user  who  queries  the  data  base  will  use  the  same  reference 
material  for  selecting  index  terms  in  his  queries.  It  is 
therefore  essential  that  the  person  who  indexes  the  data  base 
objects,  and  the  person  who  indexes  queries  to  that  data  base, 
share  in  a single  reference  that  defines  the  index  terminology. 
Notice  that  most  index  terms  are  clustered  into  categories  or 
groups.  These  groupings  have  a contextual  purpose  for  both  the 
indexer  and  the  searcher.  After  a number  of  hours  that  combine 
study  and  application  practice,  the  indexer  will  begin  to  find 
that  the  appropriate  index  terms  will  often  emerge  almost 
automatically  when  he  looks  at  the  reference  content  that 
describes  the  object  to  be  indexed.  This  automaticity  has 
value  in  efficient  classification;  it  has  a liability  in  that 
the  indexer  may  become  stereotyped  in  assigning  descriptors 
when  he  should  be  exercising  contextual  judgment. 

3.  Learn  the  search  rules  and  strategies  that  will  be  applied 
to  the  indexed  materials. 

The  indexing  of  the  data  base  content  is  a critical  step  in 
determining  a range-of-effect.  But  it  is  only  the  first  in 
a series  of  steps  taken  by  the  assessor  in  seeking  to  match 
the  description  of  an  innovation  with  entities  identified  in 
the  data  base  and  ultimately  with  real  entities-- jobs,  courses 
and  instructional  vehicles.  The  indexed  search  operations 
could  result  in  a collection  of  "probable"  relevant  items 
and  the  rejection  of  "improbably"  relevant  items.  The  final 
decision  of  relevance  occurs  when  the  assessor  examines  the 
contextual  descriptions  of  the  items  that  have  been  screened 
as  probably  relevant. 

The  indexer  should  be  intimately  familiar  with  these  operations 
and  strategies,  and  the  kinds  of  judgment  the  assessor  will  have 
to  make  as  he  proceeds.  The  indexer  can  stipulate  that  the 
assessor  uses  the  same  definitions  and  meanings  of  index  terms 
that  he  uses  and  which  are  contained  in  the  shared  glossary 
reference. 
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By  being  aware  of  the  judgmental  operations  of  the  assessor 
and  query-maker,  the  indexer  can  realistically  control  criteria 
for  precision  in  indexing.  This  awareness  can  be  crucial  to 
the  indexer's  speed  and  comfort  in  assigning  descriptor  nomen- 
clature to  object  descriptions.  He  should,  of  course,  have  a 
realistic  knowledge  of  what  happens  when  a data  base  search  is 
screened  by  descriptors  in  various  logical  relations--AND,  OR 
and  NOT,  according  to  ETAM  query  construction  rules.  (See 
preceding  material  in  this  appendix  for  those  rules.) 

4.  Practice  assigning  descriptors  to  several  scores  of  entities 
in  each  entity  class. 

The  results  of  this  practice  are  thrown  away.  The  intent  is  two- 
fold. One  is  to  master  the  classificatory  format  so  that  the 
indexer  can  think  with  it  more  or  less  spontaneously.  After 
a first  pass  at  indexing  several  dozen  entity  descriptions  (at 
whatever  the  level  of  description  is  to  be  used),  perform  a 
second  and  independent  pass  on  the  same  sample  of  materials 
in  a day  or  two- -after  some  degree  of  forgetting  of  the  first 
pass.  Then  compare  the  results  of  the  first  and  second  passes 
for  reliability.  There  will  be  variations,  and  this  would  be 
expected  even  among  highly  skilled  indexers.  But  the  novice 
indexer  should  attempt  to  think  through  and  account  for  the 
differences  between  his  first  and  his  second  indexing  of  the 
same  item.  It  is  not  necessary  to  think  of  one  or  the  other 
as  being  "wrong"  when  two  or  more  passes  on  the  same  material 
do  not  match  precisely.  This  thinking  through  of  the  variations 
can  lead  to  a relatively  consistent  decision  policy  in  assigning 
descriptors. 

5.  Index  on  the  basis  of  entity  context  as  well  as  specific  elements 
of  description. 

Assume  one  is  indexing  a course  title  and  description.  Before 
assigning  any  descriptor  terms,  one  should  read  all  of  the 
information  that  is  going  to  be  used  (or  is  available)  for  the 
indexing  of  the  course  as  an  entity.  One  should  get  the  entire 
context  in  mind.  This  enables  judgment  in  selecting  index 
terms  that  will  be  useful  in  a practical  way.  For  example,  an 
operator's  course  on  radar  equipment  mentions  that  "routine 
maintenance  operations  and  diagnosis"  is  an  item  of  study.  The 
entire  course  is  limited  to  10  days.  It  is  a pretty  safe  bet 
that  the  "maintenance  diagnostics"  will  be  limited  to  a few 
external,  procedural  tests  in  order  to  determine  whether  the  set 
is  operationally  usable  or  not.  Almost  certainly  there  will  not 
be  circuit  and  module  levels  of  troubleshooting  taught  and  learned, 
nor  complex  inferential  strategies  applied  by  the  operator.  There- 
for, the  expressions  "maintenance"  and  "diagnosis"  in  this  context 
would  probably  not  warrant  applying  to  this  course,  or  course 
segment,  nor  the  descriptors  "maintenance"  and  "decide"  (the 
latter  including  the  meaning  of  "diagnose")  for  that  course, 
at  least  on  the  basis  described  here. 
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The  indexer  will,  of  necessity,  have  to  make  a number  of  infer- 
ences of  this  kind.  Sometimes  his  guesses  will  be  wrong.  But 
if  he  has  a general  background  knowledge  of  the  subject  matter 
(training  courses  in  this  example)  and  uses  the  contextual 
information  presented  to  him,  his  batting  average  must  be  better 
than  if  he  relies  only  on  words  and  phrases  taken  out  of  context 

The  descriptor  "Other"  appears  in  some  categories.  This  is  an 
escape  hatch  and  should  be  used  with  reluctance.  On  occasion, 
however,  a category  may  connote  concepts  that  are  important 
for  identifying  something  important  about  the  entity  to  be 
indexed,  but  none  of  the  descriptors  in  the  category  make  even 
an  approximate  fit. 

Use  the  term  "Other"  in  the  expectation  that  a searcher  will 
sometime  have  a reciprocal  difficulty  in  finding  the  right 
descriptor — or  several  descriptors — and  specify  "Other."  The 
"Other"  file  will  be  a miscellany  of  items  that  the  searcher 
will  have  to  look  through  in  terms  of  their  contexts  in  the 
hope  of  finding  a hit. 

If  several  indexers  agree  that  the  "Other"  term  is  being  used 
too  frequently  in  a given  category,  the  definitions  of  the 
other  descriptors  should  be  restudied.  If  this  is  still  un- 
satisfactory, the  definitions  of  the  descriptors  may  have 
to  be  somewhat  modified.  If  this  is  still  unsatisfactory, 
another  descriptor  may  have  to  be  added  to  the  category. 

But  changes  to  the  present  index,  especially  after  any  wide- 
spread adoption,  should  be  made  with  great  reluctance.  That 
is  because  changes  will  invalidate  to  some  degree  the  existing 
indexes  of  data  base  entities.  A test  of  motivation  to  change 
is  willingness  to  reindex  existing  entries.  This  is  less 
a threat  if  an  index  term  is  added  to  the  present  list.  But 
as  index  terms  are  added,  the  human  difficulties  in  using 
the  index,  either  for  search  or  for  entities,  escalate. 

6.  Use  descriptors  to  identify  key  factors  in  the  entity. 

Apply  a descriptor  to  an  entity  (course,  job  or  vehicle)  only 
if  the  descriptor  identifies  something  important  in  a practical 
sense.  Some  examples  will  clarify. 

Although  there  can  be  exceptions  to  the  following  principle, 
it  is  generally  a good  one  to  follow— a factor,  feature  or 
element  which  is  less  than  5%  of  the  cost,  or  time  or  function 
of  the  total  entity  does  not  justify  identification  by  a descrip 
tor.  Thus,  a fifteen  minute  discussion  on  "system  purposes" 
in  a two-week  course  for  operator  or  maintenance  personnel 
would  not  justify  that  the  index  to  these  courses  include 
the  descriptor  "system  purposes."  But,  if  a half  day  or  a full 
day  in  the  two-week  course  were  spent  on  this  topic,  it  would 
justify  the  inclusion  of  the  descriptor. 
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The  5%  principle  does  not  apply  if  the  reference  is  highly 
important.  The  solo  pilot  may  spend  less  than  5%  of  total 
mission  time  on  navigation,  but  it  is  a key  function  to  mission 
effectiveness.  This  would  therefore  be  an  appropriate  activity 
to  account  for  in  a job-task  characterization— in  our  indexing 
system,  navigation  would  be  indexed  as  "interpret"  and  "cogni- 
tive operations." 

The  data  for  making  these  quantitative  and  qualitative  judgments 
rarely  appear  in  the  entity  descriptions  upon  which  the  indexer 
generally  depends.  In  consequence,  the  indexer  should  have 
general  knowledge  and  practical  acquaintance  with  the  subject 
matter  he  is  indexing. 

Assume  that  the  indexer  has  general  knowledge  background  of  the 
subject  matter  being  referenced  by  the  description  from  which 
he  is  making  the  index;  assume  also  that  the  indexer  has  thor- 
ough familiarity  with  the  meanings  of  all  of  the  descriptor 
terms;  finally  assume  that  he  has  had  a few  dozen  hours  of 
experience  in  applying  the  descriptor  set  to  these  entity 
descriptions.  It  should  take  him  between  two  and  five  minutes, 
with  a median  value  of  less  than  three  minutes,  to  index 
whatever  entity  is  being  indexed— the  job-task,  the  course  of 
instruction,  or  the  instructional  vehicle.  Some  entities— 
such  as  homogeneous  units  of  instruction— could  be  indexed  far 
more  rapidly— less  than  a minute.  Entities  in  each  of  these 
kinds  of  materials  tend  to  group  themselves  so  that  the  indexer 
learns  to  recognize  what  pattern  of  descriptors  applies  to 
members  of  the  subsets.  Additional  time  is  required  when  a 
standard  pattern  is  not  the  case. 

If  the  indexer  labors  for  many  minutes  on  a large  proportion  of 
individual  entities  or  items,  agonizing  over  the  choice  of  a 
descriptor,  something  is  wrong.  He  has  not  been  properly  ori- 
ented to  the  task— he  may  be  unduly  compulsive  about  resolving 
ambiguities,  or  his  information  background  for  the  task  may  be 
inadequate.  On  the  other  hand,  if  the  indexing  always  proceeds 
as  rapidly  as  his  hand  can  check  off  descriptors,  he  may  not  be 
giving  enough  critical  examination  and  thought  to  the  subject 
matter.  Properly  done,  indexing  is  hard  mental  work.  It  requires 
holding  a context  of  information  in  mind  and  exercising  degrees 
of  judgment  not  only  in  what  descriptors  to  select,  but  also 
which  ones  to  exclude. 

7.  Use  a standardized  format  for  indexing. 

One  indexer  of  samples  of  job-tasks,  courses  and  instructional 
vehicles  used  copies  of  the  format  shown  in  Figures  A-l , A-2 
and  A-3.  A special  heading  was  added  that  specified  Navy  data 
base  identification  code,  title  of  the  entity  and,  as  a special 
factor  in  course  descriptions,  course  length  in  days.  These 
data  were  written  by  hand  and,  in  many  cases,  the  careful  writing 
(lettering  for  legibility)  often  took  more  time  than  the  indexing 
of  the  entity. 
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A circle  drawn  around  the  code  number  of  the  descriptor  meant 
the  selection  of  that  descriptor.  One  sheet  of  paper  was  used 
for  each  entity.  It  was  easy  to  erase  in  making  corrections 
or  changing  a choice.  A separate  manual  step  was  required  for 
entering  these  data  into  the  computer. 

This  indexer  felt  more  comfortable  with  the  entire  layout  of 
the  descriptor  set  before  him  than  he  would  if  he  had  to 
select  or  reject  descriptors,  one  at  a time,  by  the  prompting 
method.  In  fact,  this  is  probably  an  undesirable  procedure. 

Unless  a graphic  display  can  present  the  entire  descriptor 
pattern  all  at  one  time,  as  well  as  obviate  the  need  to  copy 
entity  titles  and  codes  by  hand,  the  paper  format  may  continue 
to  be  preferred. 

SEARCH  RATIONALES  AND  STRATEGIES 

Consider  a data  base  conceptually  like  the  two  parts  of  a telephone  book.  On  the 
white  pages  there  appear  unique  identifiers  associated  with  a given  telephone- 
subscriber  name,  subscriber  address,  subscriber  telephone  number.  Assume,  like 
social  security  numbers,  that  there  are  no  duplicate  subscriber  names.  Given 
the  subscriber's  name,  his  telephone  number  can  be  unequivocally  identified. 

There  is  no  ambiguity  in  reference.  If  the  directory  is  up-to-date  the  tele- 
phone number  linked  to  the  subscriber's  uniquely  identifying  name  or  code  is 
evoked  without  uncertainty. 

Think  now  of  using  the  yellow  pages.  Assume  you  wish  to  find  the  telephone 
number  of  someone  who  sells  mousetraps.  There  is  no  subject  matter  entry  called 
"mousetraps sellers  of—."  You  must  now  make  inductive  and  deductive  infer- 

ences about  the  class  of  sellers  who  sell  mousetraps.  Perhaps  you  think  of 
"rodent  control"  or  "department  store"  or  "hardware  store."  You  are  making 
inferences  that  this  class  term  includes  a seller  of  mousetraps.  You  may  be 
right  in  any  of  these  cases,  or  wrong  in  some  or  all  of  them.  Subject  matter 
descriptors  are  ambiguous  even  when  carefully  defined,  unless  they  specifically 
point  out  exhaustively  all  the  members  of  the  set  in  the  class  name.  This 
latter  is  an  example  of  a "closed  set."  Most  class  names  identify  open  sets. 

In  ETAM  indexing  we  will  be  talking  mainly  about  class  names  that  apply  to  open 
sets  of  references. 

SUBJECT  MATTER  SEARCH  IS  HEURISTIC.  Subject  matter  names,  as  contrasted  with 
unique  entity  names,  are  to  some  degree  ambiguous.  The  assignment  of  a subject 
matter  term  to  an  entity  in  a data  base  requires  some  judgment,  and  the  selec- 
tion of  a subject  matter  term  for  a search  query  also  requires  some  judgment. 
Matching  a subject  matter  intent  with  a subject  matter  description  therefore  is 
not  the  result  of  rigorous  processes;  consequently,  success  is  only  probabilistic 
and  may  be  increased  by  the  use  of  a different  kind  of  probe.  Success  probability 
also  increases  to  the  extent  that  the  indexer  of  the  subject  matter  shares  his 
definition  of  subject  matter  terms  with  the  searcher  who  selects  terms  for  the 
query. 
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There  may  be  cases  where  the  searcher's  concept  of  what  he  is  searching  for  may 
be  appropriately  modified  either  by  inspection  of  the  list  of  permissible  index 
terms  (in  a closed  indexing  system)  or  by  examining  the  content  of  an  early 
query  and  consequently  changing  the  terms  he  has  used  in  previous  queries. 

That  a success  is  probabilistic  in  some  degree,  and  may  be  based  on  iterative, 
converging  operations,  justifies  treating  subject  matter  searching  as  a heuristic 
rather  than  as  a rigorous  operation.  This  fact  should  make  a difference  in  how 
the  search  procedure,  and  its  information  support,  is  designed. 

SUBJECT  MATTER  SEARCH  IS  STRATEGIC.  This  means  that  some  policies  in  procedure 
will  be  more  efficient  or  more  effective,  or  both,  than  other  policies.  Strategies 
are  formulated  on  the  basis  of  tradeoff  variables  which  may  be  optimized  formally 
(as  by  equations)  or  informally  (as  by  human  judgment). 

The  purpose  of  search  is  to  find  in  some  universe  of  entities  (such  as  all  Navy 
jobtask  in  a data  base  of  job-tasks)  only  those  entries  that  fit  the  search 
objective  and  all  of  those  entries  that  fit  the  search  objective.  The  search 
objective  is  not  necessarily  the  equivalent  of  a search  specification.  The 
search  objective  is  what  the  searcher  wants  or  needs  to  find  in  the  context  of  a 
specific  innovation;  the  search  specification  is  his  translation  of  this  need  or 
requirement  into  descriptors  and  logical  connectors  among  search  descriptors 
that  come  from  the  index  lists. 

We  must  assume  that  the  searcher  can  recognize  an  entity  appropriate  to  his 
objective  if  he  can  inspect  all  of  the  information  context  that  is  associated 
with  that  entity  such  as,  in  this  case,  a full  description  of  the  task--its 
setting,  tools  and  equipment  and  objects  worked  on  or  with,  the  work  functions 
performed,  environment  performed  in,  and  explanatory  text. 

Assume  that  the  data  base  has  30,000  job-task  titles  (entities)  and  associated 
with  each  job-task  title  is  a set  of  descriptors,  an  abstract,  and  a full  textual 
description  of  the  job-task  entity.  An  inefficient,  but  highly  effective  way  of 
searching,  would  be  reading  each  and  all  of  the  full  text  descriptions  for  all 
30,000  job-tasks.  The  next  more  efficient  method,  but  less  certain  of  complete 
effectiveness,  would  consist  of  reading  all  abstracts  and,  only  if  the  abstract 
sounded  promising,  to  read  the  full  text  description  about  the  entity.  This 
procedure  entails  some  risk  of  missing  desired  entities  as  well  as  selecting 
entities  that  turn  out  to  be  irrelevant,  because  the  abstract  is  an  incomplete 
context  and  susceptible  to  misrepresentation. 

The  next  more  efficient  method,  but  correspondingly  more  risky,  is  to  make  the 
first  winnowing  on  the  basis  of  index  terms  assigned  to  entities--descriptors. 

(It  is  possible  that  an  intermediate  method  would  consist  of  examining  merely 
the  titles  of  the  30,000  entities  by  a human  interpreter  of  the  probable  meaning 
of  each  task  title. ) 

We  can  see  that  there  is  a tradeoff  between  the  degree  of  search  efficiency— 
the  labor  spent  in  the  search--and  the  degree  of  search  effectiveness  (getting 
all  of  the  relevant  entities  in  the  universe  of  entities).  This  tradeoff  extends 
to  the  size  of  the  index  list  and  the  complexity  of  descriptor  relationships 
that  are  assigned  to  entities  in  the  data  base. 
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There  is  another  kind  of  tradeoff-- this  is  between  the  precision  and  extent  of 
effort  in  indexing  the  entities,  and  the  relative  simplicity  and  effectiveness 
of  search.  The  greater  the  expertise  and  effort  spent  in  indexing  the  data  base 
content,  the  less  the  effort  (other  things  equal)  in  search,  assuming  equivalent 
criteria  for  search  effectiveness. 

In  the  search  process  there  is  a tradeoff  between  making  a search  mesh  so  broad 
that  there  will  be  many  false  drops  (items  than  turn  out  to  be  irrelevant)  but 
does  capture  a large  proportion  of  all  relevant  entities,  as  contrasted  with  a 
search  mesh  that  is  too  fine  and,  although  producing  few  false  drops,  has  also 
filtered  out  a substantial  proportion  of  relative  items. 

It  should  be  evident  that  the  design  of  an  indexing  and  search  technique  is  a 
bundle  of  compromises  that  hopefully  are  based  on  enlightened  practicality. 

In  principle,  search  strategy  produces  a progressive  winnowing  out  of  the  irrele- 
vant. It  is  a convergence  towards  the  desired  subset  through  a process  of 
exclusion.  It  is  much  like  the  skilled  playing  of  the  game  called  Twenty  Questions 
where  you  find  what  you  want  by  progressively  excluding,  logically,  what  you  do 
not  want.  Unfortunately,  this  assertion  cannot  be  taken  too  literally  else  we 
are  back  at  reading  every  document  in  the  library. 

SUBJECT  MATTER  DESCRIPTORS.  The  following  considerations  were  deliberately 
taken  into  account  in  developing  the  descriptor  list.  The  descriptor  list  must 
serve  both  the  indexer  of  the  content  of  the  data  base  and  the  searcher  who  will 
query  the  data  base. 

Closed  Set  of  Descriptors  for  a Topic  Domain.  Recall  that  topic  domain  consist 
of  courses  and  course  characteristics— instructional  vehicles  and  their  character- 
istics, and  job-tasks  and  their  characteristics.  Each  domain  has  about  50 
descriptors.  A closed  and  relatively  small  set  simplifies  the  computer  operations 
of  setting  up  records  and  fields  and  search  algorithms  that  are  both  simple  and 
efficient.  All  terms  can  be  (and  are)  carefully  defined  for  both  indexer  and 
searcher,  thus  their  usage  is  relatively  standardized.  The  potential  loss  of 
specificity  and  flexibility  in  entity  description  are  offset  by  the  ease  with 
which  the  meanings  of  the  descriptors  in  this  limited  set  can  be  learned  and 
their  meanings  understood  and  remembered,  and  their  application  standardized. 
Application  of  the  present  set  of  descriptors  may  show  empirically  the  desira- 
bility of  discarding,  modifying  or  supplementing  members  in  the  list.  These 
changes  can  be  made  while  still  retaining  a closed  set.  By  definition,  a closed 
set  is  under  control.  We  should  remember  that  the  topical  subject  matter  level 
of  search  is  not  generally  intended  to  be  sufficient  in  itself  to  identify  or 
reject  target  hits  as  relevant  to  the  search  objective. 

Few  Descriptors  per  Category.  With  some  exceptions,  a category  of  description 
contains  fewer  than  eight  descriptors.  Several  sets  go  to  ten  or  a dozen.  A 
set  of  this  small  size  is  readily  learned  and  its  members  discriminated  from 
each  other.  Because  more  than  one  descriptor  in  a category  may  be  used  in 
indexing  a reference  entity  or  in  creating  a query,  there  is  little  need  to 
avoid  redundancy  or  seek  mutual  exclusivity  in  the  descriptor  set.  By  avoiding 
such  a requirement,  indexing  and  querying  are  simplified  perhaps  by  an  order  of 
magnitude.  This  simplification  offsets  the  loss  of  precision  for  a given  search 
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iteration.  Topical  exhaustiveness  for  a collection  of  subject  matter  descriptors 
is  perhaps  more  important  than  precision  in  this  iteration  of  search.  But  even 
the  exhaustiveness  criterion  is  a hope  that,  in  most  searches,  the  category 
"Other"  will  get  few  hits.  If  not  (and  the  searcher  has  AND'd  the  descriptor 
"Other"  with  a number  of  additional  descriptors,  thus  limiting  the  target  area), 
the  searcher  may  have  to  use  a different  strategy. 

If  the  descriptor  "Other"  in  a set  of  descriptors  is  used  too  frequently,  a 
revision  of  the  descriptor  list  is  indicated.  A benchmark  for  "frequent"  might 
be  10%  of  queries  in  which  "Other"  is  the  only  descriptor  selected  in  a category 
of  descriptors. 

Few  Descriptors  in  an  Entire  Topical  Domain.  Fifty  descriptors,  subset  into  at 
least  a half-dozen  topical  groups,  are  fairly  readily  learned,  especially  if 
they  make  sense  as  individual  descriptors  and  in  the  way  they  are  organized. 

The  entire  fifty  fit  rather  readily  on  a single  printed  page  or  display,  and  can 
be  shown  all  at  once  to  the  indexer  or  the  searcher.  Thus,  the  data  entry  format 
for  composing  a query  may  begin  as  a printed  page  with  blanks,  or  as  a display 
on  a graphic  terminal. 

Avoidance  of  Descriptor  Hierarchies.  When  they  are  used  to  compose  a query,  the 
descriptors  are  all  at  one  logical  level.  It  is  well  known  that  attempts  to 
make  and  use  formal  hierarchical  relationships  among  functional  or  topical 
concepts  create  procedural  difficulties  for  the  user,  and  put  some  serious 
constraints  on  computer  search  for  at  least  some  kinds  of  search  content.  In  any 
event,  the  small  number  of  descriptors  per  search  domain  makes  hierarchic  struc- 
ture unnecessary  either  for  the  human  (except  as  noted)  and  for  the  computer 
system.  All  of  the  descriptors  can  be  treated  as  a single  level  list. 

TAXONOMIC  REFERENCE  OF  DESCRIPTORS.  The  source  of  the  present  sets  of  descriptors 
was  not  merely  convenience  for  indexing.  The  source  is  an  applied  theory  of 
learning-- the  essential  processes,  products  and  supports  for  the  learning  of 
useful  tasks.  Each  term  in  each  set  has  a somewhat  different  meaning  for  a 
learning  process  or  outcome  than  other  terms  in  the  set.  Each  term  also  derives 
some  of  its  meaning  from  its  contextual  association  with  the  other  terms  in  the 
clusters  and  sets.  The  indexer's  task  will  be  somewhat  simplified  if  he  recognizes 
the  structure  inherent  in  each  set,  rather  than  treating  them  as  an  arbitrary 
list  created  merely  for  indexing  convenience.  Their  primary  purpose,  individually 
and  collectively,  is  to  apply  standard  names  for  concepts  that  generalize  an 
instance  of  a set  of  properties,  such  as  found  in  the  innovation,  to  a some 
universe  of  entities  that  share  those  properties  in  a practical  as  well  as 
theoretical  sense. 

For  a more  complete  exposition  of  these  ideas,  see  Task  5,  Section  III  in  the 
ETAM  Phase  II-A  Final  Report,  as  well  as  Appendix  A to  that  report. 

Any  standardized  terminology  is  bound  to  have  examples  with  which  it  cannot 
readily  cope.  If  the  exceptions  are  rare--perhaps  less  than  5%— the  standards 
are  likely  to  be  useful.  The  penalty  is  some  proportion  of  extra  human  judgment 
for  coping  with  these  exceptions  and  perhaps  putting  them  into  a "miscellenaous" 
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file.  If,  however,  the  exceptions  approach  the  frequency  of  items  that  readily 
fit  the  standards,  something  is  wrong  with  the  standards  or  with  the  way  in 
which  they  are  applied. 

These  comments  are  intended  to  apply  to  some  who  may  feel  compulsively  driven  to 
find  a pre-established  niche  for  100%  of  the  cases  in  some  real  world  universe. 
There  will  be  temptations  to  add  terms  to  the  descriptor  set  in  order  to  fit 
perhaps  small  subsets  of  entities.  The  value  of  a closed  set  of  descriptors  can 
be  lost  if  the  set  increases  in  size  beyond  those  that  can  be  kept  readily  in 
mind  after  a few  hours  of  practice. 

If  changes  or  additions  are  contemplated— and  indeed  they  should  be  from  time- 
to- time— they  should  be  reviewed  in  terms  of  benefits  and  liabilities  to  the 
entire  logic  of  the  classification  structure.  It  is  easy  to  anticipate- many 
sources  of  pressure  to  make  changes.  Very  possibly  the  entire  taxonomic  logic 
underlying  the  descriptor  set  justifies  technical  challenge.  It  would  be  far 
better  from  economic  and  other  reasons  to  make  sufficient  tryouts  so  that  the 
entire  descriptor  set  could  be  strongly  stabilized  at  the  outset  before  general 
adoption  in  practice. 

SEARCH  ALTERNATIVES.  The  searcher  will  be  advised  to  examine  his  search  objec- 
tives and  the  information  about  the  innovation  he  has  as  starting  point,  and 
choose  his  search  method  accordingly.  He  should  be  able  to  bypass  any  operations 
that  interfere  with  his  progress  by  demanding  that  he  go  to  a higher  level  of 
description  than  he  already  has  available  for  bounding  his  search  region. 

(Search  strategy  will  be  discussed  in  a later  topic.)  In  any  event,  the  searcher 
should  not  be  required  to  enter  any  level  of  inquiry  that  obfuscates  his  avail- 
able definition  of  his  search  problem.  Furthermore,  search  procedures  should  not 
demand  his  going  through  any  process  that  does  not  make  a contribution  either  in 
range  or  scope  of  potential  relevance,  or  in  narrowing  the  search  universe 
towards  his  objective.  He  should  be  able  to  bypass  non-contributory  steps  in 
search  procedure.  The  ETAM  search  procedures  enable  this  flexibility. 

Thus,  the  searcher  who  wants  to  get  the  broadest  topical  definition  of  his 
inquiry  should  be  guided  by  the  ETAM  search  descriptors  in  doing  so.  The  ETAM 
search  will  yield  a broad  set  of  candidate  job-tasks,  course  titles,  instruc- 
tional devices.  This  first  set  of  candidates,  if  reasonable  in  number,  may  be 
examined  individually  at  the  level  of  job-task  names,  or  course  titles,  or 
titles  of  instructional  vehicles.  On  the  other  hand,  the  searcher  may  wish  to— 
and  be  able  to— use  descriptors  in  the  respective  Navy  data  bases  for  further 
subsetting  the  first  list  of  candidates  into  a second  derived  list  of  still  more 
probably  relevant  candidates.  He  may  therefore  use  descriptor  names  appropriate 
to  automatic  search  in  those  data  bases,  e.g.,  the  Navy's  Occupational  Standards 
data  base,  NOTAP,  CANTRAC,  etc.,  permit,  in  varying  degrees,  this  kind  of  search. 

The  searcher  may  elect  to  go  directly  to  the  Navy  data  bases  for  inquiry  based 
on  open  descriptor  sets  applied  to  these  respective  data  bases.  Entity  titles 
and  terms  within  titles  can  be  used  to  construct  search  arguments.  Thus,  many 
task  titles  in  NOTAP  include  the  name  of  the  equipment,  tool  or  instrument  on 
which  or  with  which  the  task  is  performed.  After  the  searcher  makes  a culling 
pass  through  the  titles  of  entities,  printed  out  or  displayed  as  a consequence 
of  the  query,  the  searcher  may  make  another  pass  through  the  remaining  candidates 
with  the  supplemental  context  for  each  entity  presented  to  him.  This  would  be 
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the  final  search  pass  for  accepting  or  rejecting  candidates  that  had  survived 
the  progression  of  excluding  filters  imposed  by  successive  search  queries. 

If  the  automatic  search  system  is  interactive  and  on-line,  a number  of  successive 
search  passes  can  be  made  ir.  perhaps  a few  minutes,  so  that  the  process  is 
neither  as  complicated  nor  as  lengthy  as  the  description  of  it. 

It  should  be  clear  that  the  searcher  is  not  forced  to  take  any  one  search  route 
from  start  to  finish.  It  should  be  noted  that  this  kind  of  user  flexibility  is 
somewhat  unusual  in  query  systems. 

SEARCH  PROCEDURES.  The  major  factors  that  make  formulating  a query  easy  or 
difficult  are  selecting  descriptors,  selecting  logical  connectives  between 
descriptors,  and  composing  the  content  of  the  query  for  entry  into  the 'computer. 

The  descriptor  issue  has  already  been  discussed.  Because  the  total  descriptor 
lists  are  so  relatively  small  for  each  domain  there  is  no  justification  for 
introducing  the  complexities  of  hierarchic  structure.  What  is  called  the  "coordi- 
nate descriptor"  method  is  being  used  for  creating  a query.  The  user  merely 
enters  those  descriptors  that  have  relevance  to  the  identification  or  positive 
rejection  of  candidate  entities  in  the  data  base.  If  a descriptor  is  not  selected, 
it  is  a "don’t  care"  variable  in  the  computer's  search  logic.  Descriptors  are 
organized  into  meaningful  clusters  called  "categories."  The  cluster  title 
communicates  the  context  meaning  to  the  user,  thus  simplifying  his  interpretation 
of  the  meaning  of  the  descriptors  within  the  cluster.  In  itself,  the  category 
title  is  merely  a part  of  the  format  display;  it  does  not  enter  into  the  search 
argument  unless  it  is  also  a numbered  descriptor,  because  there  are  no  descriptors 
logically  subordinate  to  it  in  the  descriptor  set. 

The  query  format  itself  allows  the  procedural  equivalent  of  a check  list  operation 
in  selecting  descriptors.  This  format  is  desirable  whether  the  user  is  a novice 
or  expert  to  the  system.  Because  it  is  a standardized  presentation  to  the 
searcher,  the  descriptor  content  can  rather  quickly  be  learned  by  the  user  in 
repeated  usage. 

Research  (some  of  it  conducted  in  IBM)  has  shown  that,  at  least  in  programming, 
the  use  of  logical  connectives  such  as  AND,  AND  NOT,  OR  and  EXCLUSIVE  OR,  is 
fraught  with  human  error,  even  among  experts.  The  logical  OR,  especially  in 
combination  with  bracketed  expressions,  is  particularly  inviting  to  human  mis- 
understanding and  error.  These  experiences  have  been  taken  seriously  in  formu- 
lating what  orders  of  connective  logic  are  permitted  the  user,  and  not  offered 
to  the  user,  in  making  up  a single  query. 

The  AND  logic  is  ordinarily  simple  for  the  user  to  get  accustomed  to,  especially 
if  no  compound  statements  are  to  be  strung  together.  (The  procedures  do  not 
allow  compound  statements.)  Thus,  the  searcher  may  want  to  get  a listing  of  all 
courses  that  provide  Enabling  Knowledge  of  "Procedural  descriptions"  AND  in  the 
Gross  Job  category  of  "Maintenance."  The  user  quickly  learns  that  only  those 
items  which  are  identified  both  as  teaching  procedural  descriptions  and  that 
teach  in  the  context  of  maintenance  jobs  will  be  selected  by  the  query.  (In 
preliminary  training  of  the  user,  it  would  not  be  taken  for  granted  that  even 
this  concept  is  self-evident.)  The  AND  operation  does  not  require  terms  in  an 
expression  to  be  logically  grouped  and  sequentially  ordered  in  any  fashion. 
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The  OR  relationship  has  been  arbitrarily  allowed  to  apply  to  single  descriptors, 
taken  one  at  a time,  within  the  same  category.  Descriptors  within  a category 
cannot  logically  be  grouped  by  AND  connectors  and  OR'd  to  another  group  of 
logically  connected  descriptors.  The  OR  relationship  can  apply  only  between 
individual  descriptors  within  a category.  The  selected  content  of  one  category 
cannot  be  OR'd  with  the  content  of  another  category.  This  would  raise  the 
potential  logical  complexity  in  a single  query  beyond  what  is  felt  to  be  a 
generally  acceptable  level. 

The  OR  relationship  within  a category  can  be  useful  for  several  purposes.  Assume 
that  the  searcher  is  not  quite  sure  whether  the  task  function  he  is  concerned 
with  is  "Interpret"  or  "Decide."  That  is,  he  is  not  quite  sure  which  of  these 
terms  was  used  to  index  the  target  material  for  which  he  is  searching.  , To  be 
safe,  he  can  select  both  Interpret  and  Decide,  which  means  that  he  will  get 
entities  that  bear  either  one  or  the  other  term,  or  both.  He  can  thus  defer  his 
decision  on  precise  relevance  until  he  sees  further  contextual  information  about 
the  candidate  items  selected  by  his  query.  Note  that  this  capability  copes  with 
some  degree  of  ambiguity  in  descriptors,  both  as  applied  by  indexers  and  by 
searchers. 

The  distinction  between  Inclusive  OR  and  Exclusive  OR  was  not  considered  opera- 
tionally relevant  to  the  ETAM  application.  The  OR  in  ETAM  procedures  is  an 
Inclusive  OR— it  does  not  care  whether  either  one  or  the  other,  or  both,  the 
OR'd  items  describe  the  target  entity. 

If  the  searcher  wants  to  widen  his  search  universe  more  broadly  than  is  permitted 
by  the  logical  limitations  in  a single  query  format,  he  may  use  several  queries, 
each  of  which  is  the  equivalent  to  a complex  OR  to  the  other  queries,  and  combine 
the  results  of  the  several  queries.  This  avoids  the  convoluted  thinking  that  is 
required  for  making  a single,  multilevel,  search  statement.  If  the  cost  of 
making  even  occasional  logical  errors  is  prorated  across  the  additional  time  for 
making  multiple  queries,  it  is  doubtful  that  any  efficiency  advantage  would 
appear  for  the  more  complex  procedures.  "Logical  elegance"  in  statement  is  not 
a relevant  human  factors  criterion. 

Finally,  some  comments  are  deserved  about  the  ability  to  frame  any  query  into 
the  content  of  a single  displayed  page  that  is  uncluttered  with  computerese 
jargon,  and  symbols  that  have  no  bearing  on  the  user's  objective— to  formulate  a 
search  statement  on  the  variables  in  which  he  is  interested.  It  should  be 
simple  for  the  user  to  check  over  what  he  has  entered,  to  know  what  he  has  done, 
and  if  he  can  recognize  errors  of  omission  or  commission  to  correct  them  directly 
and  at  once;  and  if  the  response  to  the  searcher's  query  appears  to  him  like  a 
tray  full  of  nonsense,  he  can  readily  check  back  over  the  total  content  of  the 
query  he  entered  as  a search  argument  and  perhaps  identify  what  was  wrong  with 
it.  Thus,  the  data  entry  format  and  its  contents  is  a useful  documentation  of 
the  query  both  for  diagnosing  limitations  in  the  search  argument,  or  for  purpose- 
fully modifying  it. 

The  test  of  these  rationales  will  come,  of  course,  when  samples  of  novice  users 
are  actually  confronted  with  formats,  terminals,  and  search  problems.  Assume 
familiarity  with  the  meaning  of  the  descriptors  and  with  the  purpose  of  the 
query  operations.  Within  15  to  60  minutes,  the  novice  should  be  entering  meaning- 
ful queries  without  assistance,  and  on  the  average  make  fewer  than  perhaps  5% 
errors  in  procedure  that  are  not  identified  and  corrected  at  once. 


A-23 


TAEG  REPORT  NO.  40 


SEARCH  STRATEGIES.  The  design  of  query  structures,  search  systems  and  data 
bases  should  facilitate  flexibility  in  the  searcher's  method  of  attack.  That 
method  may  vary  depending  on  the  values  in  the  search  objective  and  on  the 
information  the  searcher  has  at  the  beginning  of  the  search.  Both  of  these 
issues  are  joined  in  principles  that  embody  search  strategy.  The  definition  of 
strategy  here  is  to  "optimize"  an  outcome  for  some  given  level  of  risk  and 
effort,  or  conversely  to  minimize  risk  and  effort  in  achieving  some  level  of 
search  outcome.  These  concepts  should  become  clarified  when  some  examples  are 
examined  of  efficient  search  technique  under  various  kinds  of  starting  information. 

The  general  strategic  principle  is  to  formulate  queries  at  each  stage  of  inquiry 
that  eliminate  the  largest  proportions  of  irrelevant  entities  from  those  entities 
that  still  remain  to  be  searched.  In  practice,  this  means  using  descriptors 
that  appear  most  rarely  (as  compared  with  other  descriptors)  in  data  base  descrip- 
tions. In  general,  a unique  identifier  such  as  the  "name"  of  a given  entity  is 
comparatively  rare  as  an  index  term  in  a data  base.  An  example  in  a job- task 
inventory  would  be  the  name  of  a piece  of  operational  equipment  such  as  "radar 
ABC-10."  Note  also  that  unlike  entity  attributes  where  meanings  are  inevitably 
ambiguous,  a unique  identifier  is  low  in  ambiguity.  If  the  searcher  knows  that 
all  of  his  ultimate  target  set  of  relevant  entities  will  include  "radar  ABC-10" 
in  their  indexed  descriptions,  his  first  search  query  should  include  "radar  ABC- 
10"  as  a search  term.  In  this  case,  or  one  like  it,  the  searcher  would  bypass 
the  ETAM  level  of  subject  matter  search  and  put  his  inquiry  directly  into  the 
job-task  inventory  data  base.  To  repeat,  this  assumes  that  entities  in  the 
job- task  inventory  are  indexed  by  "equipment  worked  on"  and  that  "radar  ABC-10" 
is  the  descriptor,  and  the  only  descriptor,  for  that  equipment,  applied  to 
relevant  jobtask  entities  in  that  data  base.  (It  is  assumed  that  if  a descriptor 
is  assigned  to  an  entity  in  a data  base,  that  automatic  search  can  be  made  on 
that  descriptor  or  category  of  descriptors.)  Call  a descriptor  that  is  a specific 
name  for  an  entity,  or  for  a set  of  equivalent  entities,  by  the  term  "nominal 
descriptor."  A query  can  include  a number  of  nominal  entities  that  are  logically 
"OR'd"  to  each  other  if  the  query  format  permits,  else  a sequence  of  queries  may 
achieve  the  same  end. 

The  use  of  nominal  descriptors  does  not  entirely  rule  out  the  missing  of  relevant 
items.  It  is  frequently  possible  that  in  the  operational  setting,  a given 
object  is  treated  as  a component  in  a larger  object,  and  only  the  latter  is 
named  as  the  descriptor.  Thus,  "radar  ABC- 10"  may  sometimes  be  a component  in 
"radar  system  XYZ,"  and,  if  so,  only  the  latter  is  identified.  This  is  why  the 
rules  used  by  the  indexer  should  be  explicit  and  communicated  to  the  searcher. 

Under  conditions  of  uncertainty,  and  where  is  is  important  to  determine  maximum 
range  of  relevant  entities,  the  only  recourse  is  by  proceeding  from  the  more 
inclusive  categories  into  contextual  search.  Contextual  search  is  made  when  the 
searcher  manually  examines  the  full  description  of  each  entity  after  automatic 
search  on  descriptors  has  been  carried  as  far  as  it  is  allowed  safely  to  go. 

When  on  the  other  hand  the  searcher  is  not  sure  of  what  he  wants,  or  lacks 
nominal  descriptors  for  narrowing  the  search  quickly,  he  is  advised  to  go  broad 
at  the  start.  This  is  because  if  relevant  items  are  winnowed  out  at  any  stage 
of  progressive  search,  they  will  not  be  examined  again  during  that  particular 
search  cycle.  Again,  the  tradeoff  is  between  the  risk  of  missing  relevant  items 
versus  amount  of  effort  spent  in  the  total  search  and  identify  operation.  The 
selection  of  an  improperly  limiting  attribute  in  an  early  query  can  lock  out 
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a large  proportion  of  eligible  entities.  In  bibliographic  search  the  searcher 
may  not  care  about  seeing  the  "complete"  set  of  potentially  relevant  documents, 
only  some  subset  which  is  representative  and  falling  within  the  limits  of  what 
he  can  assimilate.  But  in  range-of-effect  analysis,  the  searcher  is^  properly 
concerned  with  the  fullest  possible  range  of  applicability  of  the  innovation. 

He  is  concerned  with  the  application  "universe,"  not  a sample  from  it. 

But  even  with  this  objective  the  maximum  exclusion  principle  operates.  When  the 
searcher  adds  descriptors  linked  by  AND,  he  is  superimposing  filters  on  the 
search.  A carefully  chosen  AND  NOT  descriptor  can  filter  out  large  subsets  of 
data  base  entities  that  are  irrelevant  to  the  inquiry. 

An  ideal  inquiry  system  would  enable  the  searcher  to  examine  an  output  -listing 
(whatever  its  level  or  form)  and  randomly  sample  from  its  contents  at  the  level 
of  contextual  detail.  By  this  means  he  could  often  determine  what  further 
restrictions  to  put  into  his  next  queries.  Note  that  here  again  there  is  a 
difference  betwen  bibliographic  searches  and  range-of-effect  search.  In  the 
former,  the  searcher  may  ask  for  the  number  of  titles  identified  by  the  request 
applied  to  the  data  base.  If  the  number  exceeds  some  arbitrary  limit  set  by  the 
searcher,  he  may  tighten  his  inquiry  in  an  attempt  to  restrict  the  number  of 
hits  to  a number  he  feels  able  to  manage.  The  ETAM  assessor,  on  the  other  hand, 
is  obliged  to  attend  to  all  relevant  entities. 

Even  when  the  searcher  is  quite  confident  at  the  start  that  he  can  subset  the 
data  base  with  a definitive  set  of  descriptors,  he  may  be  well  advised  to  begin 
with  a broader  net.  The  starting  assumptions  of  the  relevant  characteristics 
and  boundaries  of  target  entities  may  be  revealed  as  too  narrow.  Inspecting 
even  a few  samples  of  context  about  entities  not  thought  to  be  applicable  could 
change  preconceptions  and  enlarge  the  field.  This  might  be  called  "strategic 
serendipity."  A handy--and  pertinent— example  is  "diagnostic  technique"  or 
troubleshooting.  An  innovation  may,  at  the  start,  be  identified  as  a training 
method  for  strategic  diagnosis  of  equipment  ailments.  The  method  may  be  equally 
applicable  to  the  diagnosis  of  human  ailments.  It  is  possible  that  some  context 
in  one  or  both  may  reveal  that  "search  strategy"  of  the  kind  we  are  discussing 
in  the  present  topic  is  equally  applicable  when  appropriately  defined— the 
strategic  selection  of  a series  of  tests  (queries)  where  each  test  in  the  series 
logically  excludes  from  further  suspicion  (or  relevance  for  further  inquiry)  some 
major  segment  of  the  equipment  (data  base).  The  potential  applicability,  hence 
value,  of  the  innovation  becomes  greatly  expanded. 

In  conclusion,  search  for  information  can  combine  efficiency  and  effectiveness, 
but  depend  on  a combination  of  expertise  and  enabling  knowledge.  The  knowledge 
applies  to  the  defining  concepts  of  the  descriptor  set,  the  rules  used  for 
indexing  the  target  subject  matter,  and  something  about  the  contexts  of  those 
subject  matters.  The  expertise  applies  to  strategies  used  in  searching  large 
data  banks  as  well  as  in  overcoming  information  deficiencies  that  may  exist  in 
the  searcher  himself.  As  in  other  tasks  that  use  strategies,  the  expert  may 
achieve  several  times  the  results  of  a novice  at  a fraction  of  the  time. 
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GENERAL  CONCLUSIONS.  These  rationales  are  offered  as  justification  for  the 
decisions  made  in  the  section  and  formatting  of  ETAM  descriptors  and  ETAM 
query  procedures  where  simplicity  for  the  user  was  traded  off  against 
semantic  precision  and  logical  universality.  The  user  is  offered  flexibility 
in  search  method  by  not  being  ruled  from  proceeding  directly  to  data  base 
content  if  the  knowledge  of  target  objectives  enables  this  to  be  done. 

The  basis  for  choosing  an  alternative  was  described  in  the  context  of  search 
strategies. 

The  functions  of  the  human  component  in  the  search  operation  have  been  made 
explicit  so  that  even  in  the  default  of  automatic  modes  for  aiding  search, 
the  searcher  could  do  the  job  manually  with  file  cards.  In  any  event,  the 
final  judgment  of  the  relevance  or  irrelevance  of  target  entities  must  de- 
pend on  human  judgment  operating  on  contextual  information  about  those  enti- 
ties. That  context  may  be  in  a printout  or  in  the  searcher's  head,  or  a 
combination  of  both. 

The  combinations  of  all  of  these  factors  makes  up  an  information  search 
"system."  The  structure  proposed  here  is  sufficiently  modular  and  simple 
in  its  interfaces  and  content  to  be  readily  changed  when  actual  usage 
suggests  modifications.  It  is  realistic  to  expect  demand  for  changes,  but 
it  is  important  to  determine  whether  the  change  should  be  in  elements  of 
method,  information  content,  or  the  rationales  behind  them. 
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APPENDIX  B 

KEY  FIGURES  AND  ILLUSTRATIONS 
REFERENCED  IN  THIS  ETAM  REPORT 


FIGURE  TITLE  REFERENCE  * 


B-l 

Summarized  Preliminary  Feasibility  Profile 

III -48 

B-2 

Cost/Savings  Data  Sheet 

III-56 

B-3 

Decision  Tree  for  Assessment  of  Training 
Innovation  (Example  of  Form  Completed  with 
Initial  Outcome  Values  and  Probabilities) 

TII-60 

B-4 

Decision  Tree  for  Assessment  of  Training 
Innovation  (Example  of  Folding  Back  Process) 

II 1-61 

B-5 

Format  for  Describing  a Supplementary  Benefit 
or  Liability 

III-138 

* The  pages  referenced  in  this  Appendix  are  from: 

Miller,  Robert  B.  and  Duffy,  Larry  R.,  1975.  Design  of  Training 
Systems  Phase  II-A  Final  Report.  TAEG  Report  No.  12-3,  Training 
Analysis  and  Evaluation  Group,  Orlando,  FL.  Chapter  III. 
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FIGURE  B— 1.  SUMMARIZED  PRELIMINARY  FEASIBILITY  PROFILE 
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FIGURE  B— 2.  COST/SAVINGS  DATA  SHEET 
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FIGURE  B— 3.  DECISION  TREE  FOR  ASSESSMENT  OF  TRAINING  INNOVATION 
(EXAMPLE  OF  FORM  COMPLETED  WITH  INITIAL  OUTCOME 
VALUES  AND  PROBABILITIES) 
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FIGURE  B— 4.  DECISION  TREE  FOR  ASSESSMENT  OF  TRAINING  INNOVATION 
(EXAMPLE  OF  FOLDING  BACK  PROCESS) 
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TASK:  DETERMINE  RAN6E-0F-EFFECT 


1.  Identify  the  name  of  the  variable  or  factor  which  is  a supplemental  bene- 
fit or  a liability. 

2.  Estimate  the  magnitude  of  effect  of  the  benefit/liability. 

a.  If  possible,  quantify  the  unit  of  magnitude,  and  the  multiplier 
factor,  to  apply  to  the  unit  of  magnitude  appropriate  to  the 
intended  scope  of  the  application  of  the  innovation. 

b.  If  numerical  quantification  is  impractical,  express  magnitudes 
in  relative  terms. 

3.  What  is  the  number  of  entities  or  instances  (jobs,  courses,  students,  etc.) 
to  which  this  magnitude  of  benefit  (or  liability)  applies? 

4.  Estimate  the  relative  importance  of  the  added  benefit  (or  liability)  to 
the  overall  effectiveness  of  the  innovation. 

Use  a scale  from  1 to  10. 


1 2 3 4 5 67  89  10 


trivial 

moderate 

( 

:rucia 

importance 

identifiable  very 

but  minor  substantial 


Any  additional  statements  that  may  add  or  qualify  information  for  the 
decision  maker  may  be  added  informally.  v 

5.  Estimate  the  range  across  which  the  magnitude  of  benefit  (or  liability) 
may  occur. 

a.  The  estimate  of  magnitude  made  in  item  2 presumably  assumed 
conditions  moderately  favorable  to  the  benefit  occurring  (or 
moderately  unfavorable  for  the  liability  to  occur)  at  that 
magnitude. 

b.  Estimate  the  magnitude  of  the  benefit  under  conditions  highly 
favorable  for  the  innovation.  (The  converse  for  a liability.) 

c.  Estimate  the  magnitude  of  the  benefit  under  conditions  highly 
adverse  to  the  innovation. 

6.  State  reasons  and  justifications  for  these  expectations. 


FIGURE  B-5.  FORMAT  FOR  DESCRIBING  A SUPPLEMENTARY 
BENEFIT  OR  LIABILITY 
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*************** 0f****************************************** ****** 

PROGRAM  - TRAINING  COST  HOOEL  * 

TECEP  COST  MODEL  ADAPTATIONS  FOR  ETAM  BY  L.  OUFFY  * 

* 

THIS  MODULE  MUST  BE  MODIFIED  WITH  NEW  READ  AND  * 

FORMAT  STATEMENTS  TO  RECEIVE  DATA  FROM  THE  * 

ORIGINAL  AND  MODIFIED  EXC  FILE  FROM  THE  ETAM  * 

PROJECT  DATA  BASE.  * 

THE  MOOULE  PRESENTLY  CYCLES  AND  DEVELOPS  A * 

MATRIX  OF  INVESTMENT  AND  RECURRING  COST/SAVINGS  * 

DATA  FOR  EACH  COURSE  RUN  UNDER  BASELINE  CONDITIONS  * 
AND  THEN  WITH  THE  BENEFIT  PATTERN  APPLIED.  * 

* 

DATE  - 3/4/77  * 

* 

***************************************************************** 


** 

** 

** 

** 

** 

** 


PROGRAM  SETUP 

REAL  INTSPO, IMDDEV,MSCSPU,MSCSTD, I MOMNT, I NSTSL, INFLAT, INRATE 
REAL  NSTUO»NTRAV»NINSTR» NADMI N»  NrAC IL,NSUPPL,NMI sc , nequi p , n i md 
REAL  I STUD, ITRAV.I INSTR, 1 ADMIN, IFACIL, ISUPPL, I Ml  SC , IEOUIP,  I I MD 
INTEGER  GRAD, PUR CHF , AEQU I P ,DEPr 

INTEGER  DIGI T ( 20 ) /I, 2,3, 4, 5, 6, 7, 8, 9, 10, II, 12, 13,14, IS, 16, 

1 17,18.19,20/ 

LOGICAL  RPT1 ,RPT 2 . RPT3 , RPT4, RPT5 , RPT6 , RPT7 , L AST 

DIMENSION  STUD ( 20 ). GRADI 20  I, STUOMWI 2G I .SMWRRCI 20) ,AOB( 20) , PSP (20) 
R INSTR (20) ,RADMIN(20).RFQUIP(20) ,RFACIL( 20) , I MDMNT ( 20 ) 
RSUPPL ( 20 ) , RMI SC ( 20 ) .CSTUD ( 20 > , CTRAV ( 20 ) ,C INSTR I 20 ) 

C AOMIN ( 20 ) ,CEQUI P (20),PE0UIP(2D),PDEP(20),AEQUIP(2C) 
COPMT( 20) ,CFACIL(20),CIMDMT(20) ,CSUPPL(20) 
CMISC(20),DISCNT(20) , INFLAT ( 20 ) ,CGRAD( 20 ) , C$ T IN ( 20 ) 

CSP ( 20 ) * MATA ( 100 ) ,MATB( 100 ) ,COPTOT ( 20 ) , MGRAO ( 20 ) 

AOBX ( 20 1 

ETAINV (20) ,ETAREC(20) ,ET  AGRO( 20 ),ETASTU(20) ,ETAA0B(20) 
ETAINS(20) ,ETAADM(20) ,ETAEQP(20) ,ETAFAC(20) ,ETASUP(2: ) 
ETAM IS (20) ,ETAT01(20),ETAT02(20) ,ETAT03(  20) ,ETAT04(2G) 
ETAT05 (20) , ETAT06( 20 ) , ETAT07 ( 20 ) ,ETAT08(20) ,ETAT09(20) 


DI MENS  I ON 
01 MENSION 
DI MENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DI MENSION 
01 MENSION 
DIMENSION 
DI MENSION 
DI MENSION 


*** 


__  ETAT13(20) ,ETATll(20) 

CJMMON/NOGOF/NOiO,K,MATA,MATB 

ETAM  DESIGN  MOD  - REMOVE  'NAMELIST*  STATEMENTS  AND  SUBSTITUTE 

•FORMAT'  STATEMENTS  TO  READ  FROM  EXC  FILE, 

ONCE  UNDER  BASELINE  CONDITIONS,  ANOTHER  WITH 
THE  BENEFIT  PATTERN  APPLIED  TO  INPUT  VARIABLES. 

NAMELIST/TECHF/  COURSE , N.ARATE .TLENGH.RCR ATc .ARC YTM, WSCHOP, TSPOSO, 
1 INTSPO,AMTSPO,EQTSPO,PURCHF,OEPF,LOFEO,SQFTST,SQFTIN,SQFTAM, I MODE  V 
2,PUIM0JUPDATE,SUPSP0,SUPST0,MSCSP0,MSCST0,PESP,TLEGTH,L0FFA,WSH0P1 
NAMELI5t/COSTF/STUDSL,STCSTI,STCST2, INSTSL,ADMSL,EOUNtC,PCTPCH,CPS 
lQFT,CIMO,tVIM,CSUPP,CM I S, ORATE , I NR AlE, FAC ST 

namElist/dimdf/srad,copmt 


PROGRAM  INITIALIZATION 


*** 
* * * 
*** 

1 

*** 

10 


ETAM  OESIGN  MOD  - ETAM  ENTRY  POINT  FOR  START  OF  LOOP  ONE. 

INITIALIZE  LOOP  INDICATOR  (IND1). 

IN01  • 0 


AASIN  > 
AAOB  ■ 
TINSTR- 
TAOMIN* 
TEQUIP* 


0.0 

8:8 

0.0 

0.0 


TFACIL-  0.0 
TMOMNT"  0.0 
TSUPPL- 
TMISC  ■ 

TPEUUP" 

TAEQUP* 

OATA  COURSE  /'NONE'/ 
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TPEQUP* 

0.0 

AAEQUP» 

0.0 

PUKCHF= 

99999 

DEPP  = 

99999 

kVEO  = 

0.0 

R\/F  A = 

0.0 

NSTUD  a 

0.0 

DSTUJ  = 

0.0 

ISTUD  * 

o.c 

FSTUO  = 

0.0 

NTRAV  » 

0.0 

DTkAV  » 

0.0 

ITKAV  a 

O.D 

PTRAV  a 

0.0 

NI  NSTK  = 

0.0 

01 NSTR* 

0.0 

1 I NSTRa 

0.0 

Pi NSTR* 

0.0 

NAOMINa 

0.0 

DA  DM  I N* 

0.0 

lADMINa 

0.0 

FADMIN= 

0.0 

NFACIL= 

0.0 

DFACIL= 

0.0 

IFACIL* 

0.0 

FFAC1L- 

0.0 

NSUPPL* 

0.0 

DSUPPL= 

0.0 

ISUPPL* 

0.0 

FSUPPL= 

0.0 

NM1SC  » 

0.0 

DM  ISC  * 

0.0 

1MISC  - 

0.0 

FMISC  a 

0.0 

NEQUIPa 

0.0 

DEOUIPa 

0.0 

IE0UIP« 

0.0 

FtCUIPa 

0.0 

Nl  MD  a 

0.0 

Dl  MD  a 

0.0 

1 I MO  a 

0.0 

FI  MD  a 

0.0 

DA08  « 

0.0 

SAUb  = 

0.0 

NDGO  a 

0 

IGRAD  a 

0 

1PSP  = 

0 

JA  08  a 

0 

A4ATE  » 

99999. 

RCRATEa 

99999. 

A-tCYTM* 

99999. 

wSCHOPa 

99999. 

wS  HOP I a 

99999. 

TSPOSDa 

99999. 

PESP  = 

99999. 

INTSPO* 

99999. 

AMTSPO* 

99999. 

EOTSPO* 

99999. 

LDFEQ  = 

99999 

SOFTSTa 

99999. 

SDFTIMa 

99999. 

SQFTAM* 

99999. 

IMOOEVa 

99999. 

PJIMD  a 

99999. 

UPDATE= 

99999. 

SJPSPO* 

99999. 

SOPSTD* 

99999. 

MS  C S P 0 * 

99999. 

MSCSTD* 

99999. 

STUDSL* 

99999. 

STCSTI- 

99999. 

STCST2a 

99999. 

INSTSLa 

99999. 

AOMSL  * 

99999. 

EQUNTC* 

99999. 

PCTPCHa 

99999. 

CPSOFTa 

99999. 

Cl  MD  a 

99999. 
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EVIM  = 

csupp  = 

cm  is  = 

ORATE  = 
I NHATfc  = 
N = 

TLENGH= 
TLEGTH* 
FACST  * 
L3FFA  = 
K 


99999. 
99999. 
99999. 
99999. 
99999. 
99999. 
99999. 
99999. 
99999. 
99999 
I 


03  20  1=1,20 


20 


CS  TUD( I I 
CTRAV(I)  = 
Cl N$TR ( I ) * 
CADMIN(  I ) = 
CEQUIPl I >= 
CF  ACILII  ) = 
CIMDMTl I ) = 
CSUPPL ( I I* 

cuscm  = 

CORTOT (I)= 
CSRAU(l)  = 
CST1NI I)  = 
CSPII) 
poEpm  = 
AEouipm* 
STUD(I)  = 
A3  B ( I ) 
PSP(I) 

RI NSTR I I ) = 
RAOMINI I )= 
REQUIP ( I ) = 
PE  UU I P ( I ) = 
AEQUIPI  I ) = 
RF ACILII)* 
IHOMNT ( I ) = 
RSUPPLI I ) = 
RM I SC  I I > = 
A3BXII)  = 
ET  AGRD ( I ) 
ETASTUI I ) 
ET AAOBI I ) 
ET  A INS ( I ) 
fcT  AAOM ( I ) 
ETAEQPI I ) 
ET  AF  AC  ( I ) 
ETASUPI I ) 
ET  AM  I S l I ) 
ETA1NVC I ) 
ET ARtC ( I ) 
GR  AO  Cl) 
C3PMT( I ) 
CONTINUE 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.3 
0.0 
0.0 
0.0 
0.0 
0.0 
o.u 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
= 0.0 
= 0.0 
= 0.0 
= 0.0 
* 0.0 
= 0.0 
= 0.0 
= 0.0 
= 0.0 
= 0.0 
= 0.0 
= 99999. 
= 99999, 


READ  INPUT  OATA 


* * * 
*** 
*** 
* * * 


C *** 

c **♦ 
c *** 

c 

c 

c *** 
c *** 
c *** 
c **♦ 
c *** 
c *** 
c *** 
c *** 


ETAM  DESIGN  MOD  - CHANGE  'READ'  STATEMENTS  TO  READ  FROM  ORIGINAL 

AND  MODIFIED  (WITH  BENEFIT  PATTERN)  EXC  FILE. 

RE  AD ( 5 » TECHF ) 

RE  A0( 5 , COSTF  ) 

RE  AD ( 5 , D I MDF  ) 

ETAM  DESIGN  MOD  - A LOGICAL  ' 1 • IN  ITS  RESPECTIVE  POSITION 

SELECTS  A REPORT.  THESE  SHOULD  BE  SELECTABLE 
INTERACTIVELY.  THE  REPORT  NAMES  ARE: 

RPT I - INPUT  TECHNICAL  FACTORS 

RPT2  - INPUT  COST  FACTORS 

RPT 3 - OUTPUT  TECHNICAL  RESULTS  (TOTAL) 

RPTA  - OUTPUT  TECHNICAL  RESULTS  (ANNUAL) 

RPT5  - OUTPUT  COST  RESULTS  (TOTAL) 

RPT 6 - OUTPUT  COST  RESULTS  (ANNUAL) 

RPT7  - MISSING  DATA  ANALYSIS 

LAST  - INDICATES  LAST  INPUT  STREAM  DATA  CASE 
RE AD ( 5,6000)  RPT 1,RPT2,RPT3,RPT4,RPT5,RPT6»RPT7, LAST 


C-5 


TAEG  REPORT  NO.  40 


6000 

c *«* 
c 
c 
c 

c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c **+ 
c *** 
c *** 
c *** 
c *** 
c *** 
c * + + 
c *** 

L *** 

c *** 
c *+* 
c *** 
c *** 
c **  * 
c *** 
c *** 
c **+ 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
c *** 
30 


50 

55 


60 


70 


FORMAT  (8L1) 


RE  AO  MISSING  DATA  ANALYSIS  AND  DEFAULT  ROUTINES 


ETAM  DESIGN  MOD  - EACH  INPUT  VARIABLE  IS  CHECKED  FOR  PRESENCE 

AND  REASONABILITY.  MISSING  OR  OUT-OF-RANGE 
DATA  ARE  RECORDED  BY  STATEMENT  NUMBER  BY  THE 
•MISSNG  SUBROUTINE*.  VARIABLES  WITH  REASONABLE 
DEFAULT  SUBSTITUTES  HAVE  A CRITICALITY  C0DE=1, 
VARIABLES  WITH  NO  DEFAULT  DATA  HAVE  CRIT  C0DE=0. 
FOLLOWING  IS  A LIST  OF  VARIABLES  BY  STATEMENT 


NUMER  INCLUDING  CRIT  CODE  AND  PRESENT  DEFAULT 
VALUE. 


NO. 

VAR  NAME 

DESCRIPTION  DEFAULT  CRIT 

30 

N 

PLANNING  PERIOD 

20 

1 

40 

ARATE 

ATTRITION  RATE 

0.0 

1 

50 

TLENGH 

TRAINING  LENGTH  (WKS) 

— 

0 

55 

TLfcGTH 

HRS/WK  IN  MEDIUM 

40.0 

1 

60 

RCRATE 

RECYCLE  RATE 

S*ARATE 

1 

90 

WSCHQP 

WKS/YR  SCHOOL  OPER 

50.0 

1 

95 

WSHOPi 

TRAINING  WKS/YR 

50.0 

1 

100 

TSPOSD 

TIME  STUD  POS  DOWN 

0.0 

1 

110 

PESP 

EXCESS  STUD  POSITIONS 

0.10 

1 

120 

INTSPO 

INST/STUD  POS  RATIO 

0.0 

l 

130 

AMTSPO 

ADMIN/STUD  " " 

0.0 

1 

140 

EUTSPO 

EQUIP/STUD  " " CONDITIONAL 

0/1 

160 

PURCHF 

EQUIP  PURCHASE  POLICY 

1 

1 

170 

DEPF 

EQUIP  DEPRECIATION  " 

1 

1 

175 

LOFFA 

LIFE  OF  FACLITY  ( YRS) 

N 

1 

180 

LOFEQ 

LIFE  OF  EQUIPMENT  CONDITIONAL 

0/1 

200 

SQFTST 

SQ  FT/STUDENT 

0.0 

1 

210 

SOFT  IN 

SQ  FT/INSTRUCTOR 

0.0 

1 

220 

SQFTAM 

SQ  FT/ADMINISTRATIVE 

0.0 

1 

230 

IMDDEV 

INSTR  MAT  DEV  RATIO  CONDITIONAL 

0/1 

270 

UPDATE 

INSTR  MAT  MAINT  CONDITIONAL 

0/1 

290 

SUPSPO 

SUPPLIES/STUD  POS 

0.0 

1 

300 

SUPSTD 

SUPPLIES/STUDENT 

0.0 

1 

310 

MSCSPO 

MISC/STUDENT  POS 

0.0 

1 

320 

MSCSTD 

MISC/STUDENT 

0.0 

1 

330 

STUDSL 

STUDENT  SALARY 

0.0 

1 

340 

STCSTl 

TRAVEL  TO/FROM  SCHOOL 

0.0 

1 

350 

STCST2 

TRAVEL  DURING  SCHOOL 

0.0 

1 

360 

INSTSL 

INSTRUCTOR  SALARY 

0.0 

1 

370 

ADMSL 

ADMINISTRATIVE  SALARY 

0.0 

1 

380 

EQUNTC 

EQUIP  UNIT  COST  CONDITIONAL 

0/1 

400 

PCTPCH 

PCT  MAX  EQUIP  PURCH 

0.0 

1 

410 

CPSQFT 

COST/SQ  FT 

0.0 

1 

420 

CIMD 

COST/HR  INSTR  MAT  DEV 

0.0 

1 

430 

EVIM 

ANNUAL  MAINTENANCE  PCT 

o.o  • 

1 

440 

CSUPP 

COST  OF  SUPPLIES 

0.0 

l 

450 

CM  I S 

COST  OF  MISCELLANEOUS 

0.0 

1 

460 

DRATE 

DISCOUNT  RATE 

0.10 

1 

470 

INRATE 

INFLATION  RATE 

0.08 

1 

475 

FACST 

FACIL  ACQ/REFURB  COST 

0.0 

1 

480 

GR  AO 

GRADUATES  EACH  YEAR 

0 

490 

COPMT 

OEM  COSTS  EACH  YEAR 

o 

• 

o 

1 

IF  (N.GT.0.AND.N.LE.20)  GO  TD  40 

N =20 

CALL  MISSNG  (30* l ) 

IF  (ARATE.GE.O.. ANO.ARATE.LT. I. ) GO  TO  50 

ARATE  = 0.0 

CALL  MISSNG  (40, 1 ) 

IF  (TLENGH.GT.O. .AND. TLENGH.LT. 200. ) GO  TO  55 
CALL  MISSNG  (50,0) 

IF  (TLEGTH.GT.O. .AND. TLEGTH.LT. 121. ) GO  TO  60 

TLEGTH*  40.0 

CALL  MISSNG  ( 55, 1 ) 

IF  (RCRATE.GE.O. .AND. RCRATE.LT. I. ) GO  TO  70 
RC  RATE  = . 5*ARATE 
CALL  MISSNG  (60, 1 ) 

IF  ( ARCYTM.GE.O. .AND.ARCYTM.LT.200. ) GO  TO  90 
IF  (RCRATE.EQ.O. ) GO  TO  80 
IF  ( TLENGH.LT .2. ) GO  TO  80 
CALL  MISSNG  (70,0) 

GO  TO  90 
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HO 

90 

95 

100 

no 

120 

130 

19  0 

150 

160 

170 

175 

180 

190 

200 

210 

220 

230 

290 

250 


260 

270 

280 

290 

300 


ARCYTM=  0.0 

CALL  MISSNG  (70,1) 

IF  (WSCHGP.GT.O. . AND .WSCH0P.LE.52. ) GO  TO  95 

WS CHOP*  50.0 

CALL  MISSNG  (90, 1 ) 

IF  ( WSH0P1 .GT.O. . AND.WSHOPl.LE. 150. I GO  TO  100 
WSHOPl  = 50.0 
CALL  MISSNG  (95,  1) 

IF  (TSPOSD.GE.O. .AND. TSPOSD.LT. 1. ) GO  TO  110 

TSPUSD*  0.0 

CALL  MISSNG  ( 100, l) 

IF  (PESP.GE.O..AND.PESP.LE.I.  ) GO  TO  120 

PESP  = 0.1 

CALL  MISSNG  (113,1) 

IF  ( INTSPO.GE.O. .AND. 1NTSP0.LE.1. ) GO  TO  130 

INTSPO*  0.0 

CALL  MISSNG  (120,1) 

IF  (AMTSPO.GE.O. .AND.AMTSPO.LE.l. ) GO  TO  190 

AMTSPO*  0.0 

CALL  MISSNG  (130,1) 

IF  ( EQTSPU.GE.O. . AND . EQTSPO. L£ . 1. ) GO  TO  160 
IF  ( EQUNTC. NE. 99999. .AND. EQUNTC. NE.O.  ) GO  TO  150 
IF  (LOFEQ.NE. 99999. AND. LOFEQ.NE.O)  GO  TO  150 
EQTSPO-  0.0 
CALL  MISSNG  (190,1) 

GO  TO  160 

CALL  MISSNG  (190,0) 

IF  (PURCHF.GE.l. AND. PURCHF.LT. 10)  GO  TO  170 
PURCHF=  1 

CALL  MISSNG  (160,1) 

IF  (DEPF.GE. l.AND.DEPF.LT. 10)  GO  TO  175 
DEPF  =1 

CALL  MISSNG  (170,1) 

IF  (LOFFA.GE.1.AND.LOFFA.LE.50)  GO  TO  180 
LOFFA  = N 

CALL  MISSNG  (175,1) 

IF  (LOFEO.GE.1.AND.LOFEO.LE.50)  GO  TO  200 
IF  ( EQTSPO. NE.O. ) GO  TO  190 

IF  (EQUNTC. NE. 99999.. AND. EQUNTC. NE. 0. ) GO  TO  190 
LOFEQ  = N 

CALL  MISSNG  (180,1) 

GO  TO  200 

CALL  MISSNG  (180,0) 

IF  ( SQFTST.GE.O. .ANO.SQFTST.LT. 1000. ) GO  TO  210 

SQFTST=  0.0 

CALL  MISSNG  (200,1) 

IF  (SOFT IN.GE.C. .AND. SQFTIN.LT. 1000. ) GO  TO  220 

SOFT IN-  0.0 

CALL  MISSNG  (210,1) 

IF  (SQFTAM.GE.O. .AND. SQFTAM.LT. 1000. ) GO  TO  230 

SOFT  AM-  0.0 

CALL  MISSNG  (220,1) 

IF  ( IMDDEV.GE.O.  .AND. IMDDEV.LT. 1000. ) GO  TO  250 
IF  ( PUIMO. GT.O. .AND. PUIMD.LE. 1. ) GO  TO  290 
IF  (UPDATE. GT.O. -AND. UPDATE. LE.l. ) GO  TO  290 
I MDOEV-  0.0 
CALL  MISSNG  (233,1) 

GO  TO  250 

CALL  MISSNG  (230,0) 

IF  (PUIMO. GT.O.. AND. PUIMD.LE. 1. ) GO  TO  270 
IF  ( IMOOEV.NE.O. » GO  TO  260 

IF  (UPDATE. GT.O. .AND. UPDATE. LE.l. ) GO  TO  260 

PJIMD  * 1.0 

CALL  MISSNG  (250,1) 

GO  TO  270 

CALL  MISSNG  (250,0) 

IF  (UPDATE. GE.O. .AND. UPDATE. LE. 1. ) GO  TO  290 

IF  ( IMDDEV.NE.O. ) GO  TO  280 

IF  (PUIMD. GT.O. .AND. PUIMD.LT. 1. ) GO  TO  280 

UPDATE-  0.0 

CALL  MISSNG  (270,1) 

GO  TO  290 

CALL  MISSNG  (270,0) 

IF  (SUPSPO.GE.O. .AND.SUPSPO.LT. 1000. ) GO  TO  300 

SUPSPO-  0.0 

CALL  MISSNG  (290,1) 

IF  ( SUPSTD.GE.O. .AND. SUPSTD.LT. 1000. ) GO  TO  310 
SJPSTD*  0.0 
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313 

323 

333 

340 

350 

360 

370 

380 


390 

400 


410 

420 

430 

440 

460 

460 

470 

475 

480 

490 

500 


C *** 

510 


515 

518 


CALL  MISSNG  (300»1 ) 

IF  (MSCSPO. GE.O. .AND. MSCSPO.LT. 1000. ) GO  TO  320 

MSCSPO-  0.0 

CALL  MISSNG  (310,1) 

IF  (MSCSTD.GE.O. .AND.MSCSTO.LT. 1000.)  GO  TO  330 

MSCSTD*  0.0 

CALL  MISSNG  (320,1) 

IF  (STUOSL.GE.O. .AND. STUDSL.LT. 50000. ) GO  TO  340 

STUDSL®  0.0 

CALL  MISSNG  (330,1) 

IF  (STCSTi.GE.O. .AND.STCSTl.LT. 10000. ) GO  TO  350 

S7CST1-  0.0 

CALL  MISSNG  (340,1) 

IF  (STCST2.GE.0. .AND. STCST2.LT. 10000. ) GO  TO  360 

STCST2-  0.0 

CALL  MISSNG  (350,1) 

IF  ( INSTSL.GE.O. .AND. INSTSL.LT. 50000.  ) GO  TO  370 

INSTSL*  0.0 

CALL  MISSNG  (360,1) 

IF  (ADMSL.GE.O.. AND.ADMSL.LT. 50000. ) GO  TO  380 

AOMSL  = 0.0 

CALL  MISSNG  (370,1) 

IF  (EQUNTC.GE.O. .AND. EQUNTC.NE. 99999. ) GO  TO  400 

IF  ( EQTSPO.NE.O. ) GO  TO  390 

eOUNTC-  0.0 

CALL  MISSNG  (380,1) 

GO  TO  400 

CALL  MISSNG  (383,0) 

IF  ( PCTPCH .GE. 0. . AND. PCTPCH.LE . 1 • ) GO  TO  410 

PCTPCH-  0.0 

CALL  MISSNG  (400,1) 

IF  (CPSOFT.GE.O. .AND. CPSQFT.NE. 99999. ) GO  TO  420 

CPSQFT-  0.0 

CALL  MISSNG  (410,1) 

IF  (CIMO. GE.O.. AND.CIMD.LT. 50000. ) GO  TO  430 

CIMO  * 0.0 

CALL  MISSNG  (420,1) 

IF  (EVIM. GE.O.. AND. EVIM.LT.l.)  GO  TO  440 

EV IM  * 0.0 

CALL  MISSNG  (430,1) 

IF  (CSUPP.GE.O.. AND. CSUPP.NE. 99999. ) GO  TO  450 

CSUPP  * 0.0 

CALL  MISSNG  (440,1) 

IF  (CMIS.GE.O. . AND. CMIS.NE. 99999. ) GO  TO  460 

CM  I S * 0.0 

CALL  MISSNG  (450,1) 

IF  (DRATE.GE.O.. AND. DRATE.LT. 1.)  GO  TO  470 

DR ATE  = 0.10 

CALL  MISSNG  (460,1) 

IF  ( INRATE. GE.O. .AND. INRATE.LT. 1. ) GO  TO  475 

INRATE-  0.08 

CALL  MISSNG  (470,1) 

IF  ( FACST. GE.O.. ANO.FACST.NE. 99999. ) GO  TO  480 

FACST  * 0.0 

CALL  MISSNG  (475,1) 

IF  (GRAD(N). GE.O.. AND. GRADINI.NE. 99999. ) GO  TO  490 
CALL  MISSNG  (480,0) 

IF  (COPMT(N) .GE.O. .AND. COPMT(N).NE. 99999. > GO  TO  510 
DO  500  1 = 1, N 
C3PMT ( I ) - 0.0 
CALL  MISSNG  (490,1) 

IF  (NOGO.EQ.l)  GO  TO  960 

IF  (N.GE.20)  GO  TO  518 

INDEX5  - N+i 

DO  515  I - I NDEX5* 20 

CDPMT(I)  - 0.0 

GRAD( I ) - 0 

CONTINUE 


MODEL  EQUATIONS  - TECHNICAL  FACTORS 

UIMDTM  = TLENGH*IMDDEV*PUIMO*TLEGTH 

CJIMD  * U I MOT M*C I MD 

RVIM  * CUIMD*EVIM 

IF  (LOFFA.LE.N)  GO  TO  519 

RFVA  - (LOFFA-N) ♦ ( FACST/LOFFA ) 

519  00  520  1*1, N 
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520 


ST UD ( I ) = GRA0(  H/(  1.0-ARATE) 

IGRAD  * I GRAD+GRAO I I ) 

AASIN  = AASIN+STUDI I ) 

STUOMWI I )=  ( TLENGH*STUD( I))*  I 1 .0-. 5*ARATE ) 

SMWRRC(I)*  RCRATE*STUD(I)*ARCYTM 

A3B  ( I ) = ( STUDMW ( I ) +SMWRRC ( I ) ) /WSCHOP 

OAOB  * OAOB  ♦ ( AOB ( I ) - AOBX ( I ) ) 

SAOB  = S AOB  ♦ AOB ( I ) 

AAOB  = AAOBtAOB(I) 

PSP(I)  * ( ( (AOB( I )*WSH0Pl/WSCH0P)/( l.O-TSPOSD) )*( i.O+PESP) ) 
IPSP  = 1PSP+PSPU) 

RI NSTR ( I )=  PSPd  ) * I NTSPO 
TINSTR  = T I NSTR+R I NSTR ( I ) 

RAOM INI I ) = PSP ( I ) *AMTSP0 
TAOMIN  = T ADMI N + RADM IN  I I ) 

REQUIPII)*  PSP(I )*EQTSPO 
TEQUIP  = T EQUl P+REQU I P ( I ) 

RFACILI  I ) = PSPd  )*(SQFTST*I  NTSPO*  SOFT  lN+AMTSPO*SQFTAM) 

TFACIL  = TFACI L+RFACILII ) 

IMOMNT I l ) = U I HOT  M*UPDATE 
TMDMNT  = TMDMNT* IMOMNT (I) 

RSUPPLI I )=  PSPd )*SUPSPO*STUD( I ) *SUPSTD 
TSUPPL  = TSUPPL+RSUPPL ( I ) 

RNISCII)  = PSPd  )*MSCSPO*STUO(  I )*MSCSTD 
JAOB  = J AOB*-  AOBX  ( I ) 

TMISC  = TMISC+RMJSCII  ) 

COURSE  TECHNICAL  FACTORS  TO  ACCUMULATE  FOR  ETAM  CMR  FILE 

ETAGRDI I ) * GRAD ( I ) 

ET ASTUI I ) = STUD ( I ) 

ETAAOBI I ) * AOB( I ) 

ETAINSI I ) * RINSTRI I 
ETAADMI I ) = RADMINI I 
ETAEQPI I ) = REQU I P ( I 
ETAFACd  ) = RF  AC  I L ( I 
ET  ASUP ( I ) * RSUPPLI I 
ETAMISI I ) = RMISCI I ) 

IF  (DAOB.LT.O.)  D AOB*DAOB*( -1 . ) 

I AOB  * ( (DAOB/SAOB)*. 51*100 

IF  I IA0B.GT.5.AN0.JA0B.NE.0)  CALL 


AASIN 

A3RAD 

AAOB 

APSP 

AI NSTR 

AADMIN 

AEQUP 

AFACIL 

AI MDMT 

ASUPPL 

AM  I SC 


AASIN/N 

IGRAD/N 

AAOB/ N 

IPSP/N 

TINSTR/N 

TADMIN/N 

TEQUI P/N 

TFACI L/N 

TMDMNT/N 

TSUPPL/N 

TMISC/N 


MISSNG  ( 520? I AOB ) 


THIS  ROUTINE  CALCULATES  EQUIPMENT  PURCHASE  AND  DEPRECIATION 
SCHEDULES  FROM  USER  SELECTED  POLICY  OPTIONS 

- PURCHASE  POLICIES  ANALYSIS 

GO  TO  (530?5AO,550,560?570,580t.590t600?610)?PURCHF 

POLICY  I 


530  CONTINUE 

DO  534  I=1.N,L0FEQ 
TEMPI  * 0.6 
INOEXl*  LOFEQfl-l 
DO  532  J* I ? INDEX  1 
TEMPI  = REQU I P I J ) *TEMP1 
532  CONTINUE 

PE QUIP! I >■  TEMPl/LOFEQ 
53 A CONTINUE 
GO  TO  620 

POLICY 

540  CONTINUE 

DO  544  I - 1 • N ? LOF  EQ 
TEMPI  = 0.0 
INDEX1*  LOFEQ* I- 1 


PURCHASE 
IN  FIRST 


TOTAL  AVERAGE 
YEAR  OF  EQUIP 


RQMTS 

LIFE 


2 - 


PURCHASE 
RQMTS  IN 


TOTAL 

FIRST 


PERCENT 
YEAR  OF 


OF  MAXIMUM 
EQUIP  LIFE 
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542 

544 


550 


552 


TEMP1»REQUIP ( J ) 


632 


GO  TO  558 


556 

558 


560 


562 


0J  542  J=  l * INDEX  1 
IF  (TEMPI. LT.REQUIP(J)) 

CONTINUE 

PEQUIPU)*  T EMP1  *PCTPCH 

CONTINUE 

GO  TO  620 

POLICY  3 - PURCHASE  UP  TO  AVERAGE  RQMTS  BUT 

NOT  EXCEEDING  RQMTS  IN  YR  OF  PURCH 

CONTINUE 

UO  558  I=l,N»L0FEQ 
TEMPI  = 0.0 
I NDEX 1 = LOFEOI-l 
DO  552  J3  l * I NDEX 1 
TEMPI  = REQUIPU  UTEMP1 
CONTINUE 

PE  QU I P ( I ) = TEMPI /LOFEQ 
IF  (PEQUIPU). LE. REQUIPU)  ) 

TEMPI  = PEQUIPI I I 
INDEX1*  LOFEQ+l-l 

00  556  Js I * I NOEX I 

IF  (TEMPI. LE.O.)  GO  TO  556 

IF  (TEMPI. GT. REQUIP( J) ) PEQU l P ( J >=REQU I P ( J ) 

IF  ( TEMPI.  LE. REQUIPU)  ) PEQUIPI  J )*TEMPl 
TEMPI  * TEMP 1-PEQU I P ( J ) 

CONTINUE 
CONTINUE 
GO  TO  620 

POLICY  4 - PURCHASE  UP  TO  PCT  OF  MAX  RQMTS  BUT 
NOT  EXCEEDING  RQMTS  IN  YR  OF  PURCH 

CONTINUE 

DO  568  1*1, N, LOFEQ 
TEMPI  = 0.0 

1 NDEX 1=  LOFEQ+I-1 
00  562  J3 1 * I NOEX l 

IF  ( TEMPI.LT. REQUIPIJ) ) TENP1*REQU l P ( J > 

CONTINUE 

PEQUIP(I)*  T EMP1 *PCTPCH 

IF  ( PEQU IP ( I ) .LE .REQUIP ( I ) ) GO  TO  568 

TEMPI  = PEQUIPU  ) 

INDEX!3  LOFEQ* I- l 
DO  566  J*  I * I NDEX I 
IF  (TEMPI. LE.O.)  GO  TO  566 

IF  (TEMPI. GT. REQUIPI J) ) PEQUI P ( J ) *REQUI P (J ) 

IF  (TEMPI. LE. REQUIP(J) ) PEQUIPU  >«TEMP1 
TEMPI  3 TEMP1-PEQUI P( J ) 


566 

CONTINUE 

568 

CONTINUE 

GO 

TO 

620 

5 70 

GO 

TO 

530 

580 

GO 

TO 

530 

590 

GO 

TO 

530 

600 

GO 

TO 

530 

610 

GO 

TO 

530 

620 

GO 

TO 

(630 

630 

CONTINUE 

- DEPRECIATION  POLICIES  ANALYSIS 


POLICY  l - 


0,690,700,710)  , DEPF 

DEPRECIATE  LINEARLY  OVER 
LIFE  OF  EQUIPMENT 


TEMP2 
DO  632 
TEMPI 
PDEPl I ) 
CONTINUE 
GO  TO  730 


3 LOFEQ 
1*1, LOFEQ 

TEMPI /TEMP2 


POLICY  2 


DEPRECIATE  BY  SUM-OF-DIGI TS 
OVER  LIFE  OF  EQUIPMENT 

640  CONTINUE 
SJM 

00  642  I’ 

SJM 

642  CONTINUE 

POEP(l)  3 ( LOFEQ ) /SUM 
DO  644  I«2, LOFEQ 

POEP(I)  3 (LOFEQ-I )/SUH*PDEP( 1-1 ) 

644  CONTINUE 


*0.0 
>1, LOFEQ 
3 SUM+I 
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o.l  TO  730 


650 


652 

660 

670 

680 

690 

700 

710 


730 


740 

750 


760 


7 70 


CONI  INUE 
DO  652  I 
PDEP( I ) 
CONTINUE 
GO  TO  730 
TO 
TO 
TO 
TO 
TO 
TO 


POLICY  3 - SET  DEPRECIATION  SCHEOULE 

TO  FULLY  DEPRECIATED  ALL  YEARS 


l.LOFEQ 

= 0.0 


GO 

GO 

GO 

GO 

GO 

GO 


630 

630 

630 

630 

630 

630 


- COST  FACTORS 


L = N+l 

IF  IL.GT.20)  GO  TO  750 

00  740  I =L , 20 

GRAD l I ) =0 

CDPMT(L)  * 0.0 

CONTINUE 

TOT  AEQ  = 0.0 

UO  790  1=1, N 

CSTUO(l)  = ( (STU0MW< I >+SMWRRC(I) )/52)*STU0SL 
CTRAV(I)  = STUD(  I ) * ( S TCSTl +STCST2* ( 1 .0-. 5*ARATE ) > 
Cl NSTR ( I ) = R INSTR(  I ) MNSTSL 
CADMIN(I»=  RADH1 N ( I ) *ADMSL 
TPEQUP  = T PEQU  P + PEQUl P ( 1 ) 

INDEX4=  PEQUIPU  1+0.5 
PEOUIP(I)*  IN0EX4 
CE  OUI P ( I ) = PEQUI P( I )*EQUNTC 
LIFERV  = I+LOFEQ-N-L 
IF  (LIFERV. LE.O)  GO  TO  760 


RVEQ 
CONTINUE 
TO  T AEQ 
AE  QU  I P ( I ) ' 
TAEQUP 
LOBSLT 


R VEQ+CEQU I P ( I ) *POEP ( L I FERV ) 


TOTAEQ  + PEQU I P I I » 
TOTAEQ 

T AEQU P+AEQU I P ( I ) 
I-LOFEQ 
IF  (LOBSLT. LE.O)  GO  TO  770 
TOTAEQ  = T0TAEQ-PEQUIP< LOBSLT) 
AE  QU I P ( I ) = TOTAEQ 
CSUPPL(I)  = RSUPPL ( I ) *CSUPP 
CM l SC ( I ) = RMISC ( I ) *CM I S 

Cl  NV1  = CEQUIPU  ) 

CRECI  = AEQU I P ( I ) *COPMT ( I ) 

CREC2  = RFACILd  )*CPSQFT 
CREC3  = I MOMNT ( I )*CIMD 
CRECT  = CRECI  ♦ CREC2  ♦ CREC3 
CADMINd  ) ♦ CSUPPL  ( I ) 


I 


CSTUD( I ) 
CM  I SC ( I ) 


♦ CTRAV ( I ) ♦ C INSTR ( I ) + 


COURSE  COST  FACTORS  TO  ACCUMULATE  FOR  ETAM  CMR  FILE 


- FIRST  YEAR 


IF  (I.NE. 

1 ) 

ET  A I NV ( 1 ) 

2 

CFACILf  I ) 

X 

Cl MDMT ( I ) 

X 

771 

IF  (I.EQ. 

l ) 

ET  A I NV ( I ) 

X 

CFACIL(I) 

X 

CIMOMT ( I ) 

s 

772 

ETARECI  I ) 

X 

CEQUIPII  ) 

X 

IF  (I.NE. 

N) 

ETAINV(N) 

a 

773 

CONTINUE 

01  SCNT ( I ) 

X 

GO  TO 
CINVI 
CREC2 
CREC3 
GO  TO 


771 

+ FACST 
♦ FACST 
+ CUIMD 

772 


+ CUIMD 


- REMAINING  YEARS 


CINVI 

CREC2 

CREC3 

CRECT 

CINVI  ♦ CRECI 
GO  TO  773 
ETAINV(N)  - RVEQ 


- RFVA  - RVIM 


- COST  SUMMARIZATION 
(2.0+DRATE)/(2.0*(l .O+DRATE ) **I ) 


C-ll 


non 
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780 


790 


INFLAT 
NS  RID 
DSTIJD 
ISTUO 
FSTUD 
NTRAV 
DTRAV 
IT  RAV 
FTRAV 
NI NSTR 
U1NSTK 
1 1 NSTR 
FI NSTR 
NAOMI N 
DAOMIN 
I AOMIN 
FADMIN 
NSUPPL 
OS  UP PL 
ISUPPL 
FSUPPL 
NMISC 
DM  I SC 
IMISC 
FM  ISC 
IF  ( I 
CEQUIP 
Cl MOMT 
NEQU1P 
CFACIL 
DEQUIP 
IEQUIP 
FEOUIP 
NI  MD 
01  MO 
IIMO 
FI  MD 
NFACIL 
DFACIL 
IFACIL 
FFACIL 
COPTOT 
L 

CORAOI 
CSTINI 
CSP(  I ) 
APEQUP 
AAEQUP 
SNAOC* 
SDAOC* 
SI AOC* 
SFAOC* 
GNAOC* 
GO AOC= 
GI AOC* 
GF  AQC= 
UNAOC* 
UD AOC= 
UI AOC* 
UFAOC* 
PN  AOC* 
PD AOC= 
PI AOC= 
PF  AOC  = 
ORATE 
INRATE 


(II = (2.0* ( 1.0*1  NR ATE) **I )/( 2.0* INRATE) 

* NSTUD+CSTUD ( I ) 

= DSTUD*CSTUD( I )*OISCNT( I ) 

* ISTUD*CSTUU( 1 )*INFLAT( I ) 

* FSTUD+CSTUDI I )*INFLAT 

* NTR AV+CTRAV ( I ) 


N I NST R + C I NSTR ( I ) 


) *01 SCNT ( I ) 

) 

) 

) *0 

I SCNT ( I ) 

( I ) 

( I ) 

(I  ) 

♦ DISCNTU  ) 

( I ) 

( I ) 

( I ) 

*0 I SCNT ( I ) 

( I ) 

( I ) 

( I ) 

♦ DISCNTU  ) 

NAOMI N+CADM IN ( I ) 


NSUPPL*CSUPPL( I ) 


* NM I SC  *CM I SC ( I ) 

= DMISC*CMISC( I )*DISCNT( I ) 

= IMISC*CMISC( I )*INFLAT( I ) 

= FMISC*CMISC( I )*INFLAT( I I *01 SCNT ( 1 ) 
NE.N)  GO  TO  780 
( I ) *CEQUIP ( I I-RVEQ 
( I ) = C I MOMT ( I ) -RV I M 

* NEQUI P+CEQUIP ( I ) 

(I  ) * CFACIU  I )-RFVA 

= DEQUI P+CEQUIP ( I )*Dl SCNT ( I ) 

* IEQUI P+CEQUIP( I )*INFLAT( I ) 

= FEQUI P+CEQU I P ( I )* INFLAT ( I ) *DISCNT ( I ) 
= N I MD*C I MOMT ( I ) 

0 IMD*C IMOMT ( I ) *DI SCNT ( I ) 


I I MD*C I MOMT ( I )* INFLAT ( I ) 

- ! )* 


INFLATI I ) 


( I ) = 

I ) ■ 
I ) * 


F I MD*C I MOMT ( I ) *01 SCNT ( 

NFACIL*CFACIL(I  ) 

DFACI L*CFAC IL ( I )*DISCNT(I ) 

IFACI L+CFAC I L ( I )*INFLAT ( I ) 

FFACI L+CFACI L ( I )*INFLAT( I ) *01 SCNT ( I ) 

CSTUO ( I UCTRAVl I )+CINSTR( I ) +CA0M1 N( I ) +CFAC 1 L ( I ) 

♦C IHDMT ( I ) ♦CSUPPL ( I ) *CM l SC ( 1 ) +CEQU I P ( I ) 

COPTOT ( I ) /GR AO ( I ) 

COPTOT ( I )/STUD( I ) 

COPTOT ( I )/PSP( I ) 

TPEOUP/N 
T AEQUP/N 

NSTUD*NTRAV*NINSTR*NAOHlN*NFACIL*NSUPPL*NMISC*NEQUIP+NlMD 

DSTUD*DTRAV+DINSTR*DADMIN*DFACIL+DSUPPL*DMISC*DEQUIP*DIMD 

I STUO+ 1 TRAV* 1 1 NSTR+l ADMl N+IFACILMSUPPLUMISC+IEQUIP  + IIMD 

FSTUD+FTRA  V«-F  INSTR  + F ADMI N+FFACI L+FSUPPL+FHI SC*FEQUIP*FIHD 

SNAOC/ I GRAD 

SDAOC/IGRAD 

SIAOC/ IGRAD 

SFAOC/IGRAO 

SNAOC/ (AAS IN*N) 

SDAOC/ (AAS IN*N) 

SIAOC/ (AAS IN*N ) 

SFAOC/ (AAS IN*N) 

SNAOC/ I PSP 
SDAOC/ IPSP 
SI AOC/ IPSP 
SFAOC/ IPSP 
= DRATE*IOO. 

* INRATE*IOO. 


WRITE  INPUT  TECHNICAL  FACTORS 


900 


IF  (.NOT.RPTl) 
WRITE  (6,1000) 


1 

2 

1000  FORMAT 

1 

2 

3 

4 


GO  TO  910 

COURSE, DR ATE, N, INRATE, (GRAD ( I ) , 1*1, 10) , 

EQTSPO  * ’ I“ll'20,'ARA'E»TSP0SD»TLENGH»PESP»RCRATE» 
•l',28X, 'COURSE  COST  ANAL YS I S • . / , IX , • I NPUT : * , , 

'COURSE  NUMBER  - ' , A4, 25X , • 01 SCOUNT  RATE  - 
• PERCENT' ,/,3X, 'PLANNING  PERIOD  - ',I2,27X, 

‘ • f F4. I , • PERCENT', //,1X, 


i / j3X, 


, F4 . 1 1 


•INFLATION  RATE  - 


INPUT  TECHNICAL  FACTORS: ',/, 3X ,' PLNG 


1 
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5 

0 

7 

8 
9 

1 
A 
ri 
C 
u 

t 

3 

4 


WR  ITE 


C 

C 

c 


1010  FORMAT 
L 

F 

G 

H 

I 

J 
K 
L 
M 
N 
0 
P 
Q 
R 
S 
T 
U 
V 
w 


• 3 4 5 6 7 8 9 

'10',/,3X,'GRA0S-',10(1X,I6),/,3X,'PLNG  YR','  11 

•12  13  14  15  16  17  18  19', 

• 20*  ,/,3X,'GRADS-",l0(iX,I6).//,3X, 

•ATTRITION  RATE  (PCT)  - ',F4.2,8X, 

•TIME  STUD  POS  OOWN  (PCT)  - *,F3.2,/,3X, 

• TRAINING  LENGTH  (WKS)  - ',F5.1,9X, 

•PCT  EXTRA  STUD  POSITIONS  - ',F3.2,/,3X, 

•RECYCLE  RATE  (PCT)  - ',F3.2,8X, 

•EQUIP/STUD  POS  RATIO  - ',F4.2) 

(6,1010)  ARCYTM,TLEGTH, WSCHOP, IMDDEV, INTSPO, PUIMD. 

AMTSPO, UPDATE, SQFTST,EVIM, SOFT  IN, SUPSPD , $QFTAM, 
SUPSTD,PURCHF,MSCSP0,DEPF,MSCSTD,WSH0P1 

( 3X  , 

AVE.  RECYCLE  TIME  ( WKS ) - 
TIME  IN  MEDIUM 
WEEKS  SCHOOL  OPERATES 

COURSE  DEV  HRS/COURSE  HR  - ',F5.1,/,3X, 

INSTK/STUD  POS  RATIO  - *,F5.2,8X, 

PCT  COURSE  REQUIRING  DEV.-  '.F4.2,/,3X, 

ADMIN/STUD  POS  RATIO  - ',F4.3,7X, 

PCT  INSTR  MAT.  MAINTAINED-  ',F3.2,/,3X, 

SQ  FEET/STUDENT  POS.  - ',F6.2,8X, 

PCT  INSTR  MAT.  RMNG  VALUE-  ',F3.2,/,3X, 

SQ  FEET/I NSTR.  POS.  - ',F6.2,8X, 

SUPPLIES/STUDENT  POSITION-  ‘,F5.i,/,3X, 


• ,F4.1,9X, 

- ' ,F5.  1 , / » 3X( 
- ' , F4. 1 , 9X , 


SQ  FEET/ADMIN  POS. 
SUPPLIES/STUDENT 
PURCHASE  POLICY 
MISC/STUDENT  POSITION 
DEPRECIATION  POLICY 
MISC/STUDENT 

WEEKS  SCHOOL  AVAILABLE  - 


, F6 . 2 , 8X , 

• » F5. 1 * / , 
•,Il,llX, 


3X  i 


• ,F5. 1 , / , 3X, 
• , 1 1, 11X, 

• -,F5.l,/,3X, 


• irj.i 

,F4. 1 ] 


WRITE  INPUT  COST  FACTORS 


910 


IF  (.NOT 
WRITE  (6 


C 

C 

C 


1 

2 

1001  FORMAT  ( 

1 

2 

3 

4 

5 

6 

7 

8 
9 
l 
A 
b 
C 
0 
E 
F 
G 
H 

WRITE  (6 
1007  FORMAT 
l 
J 
K 
L 


RPT2 ) 
1001) 


GO  TO  920 

COURSE.DRATE.N, INRATE , (COPMT ( I ) , 1*1.10) , 

( COPMT ( I ) , 1=11,20) ,STUDSL,C l MO, STCST1,C$UPP,STCST2, 
CM  I S , INSTSL.PCTPCH.ADMSL.CPSQFT 

COST  ANALYSIS' ,/.lX, • INPUT:' ,/.3X, 

•DISCOUNT  RATE  - {,F4.1, 


COURSE  NUMBER  - ',A4,25X,- 
PERCENT* ,/,3X, 'PLANNING  PERIOD  - ',I2,27X, 
INFLATION  RATE  - ',F4.i,'  PERCENT './/, IX , 
INPUT  COST  FACTORS: • ,/,3X,»PLNG  YR1,'  l 
3 4 5 6 7 8 

10* , / , 3 X , ' OtMN-  • ,10( 1X.F6.0) ,/,3X, *PLNG  YR', 
« 12  13  14  15  16 

19  20 ' , / , 3X , • OCMN-  • , “ 

STUDENT  SALARY  (ANNUAD- 
COST/HR  OF  INSTR  MAT  DEV 
STUD  TRAVEL  TO/FROM 
SUPPLIES  COST 
STUD  TRAVEL  IN  COURSE  - 
MISCELLANEOUS  COST 
INSTR  SALARY  (ANNUAL)  - 
PCT  MAX  EQUIP  PURCHASED 
ADMIN  SALARY  (ANNUAL)  - 
FACILITY  COST/SQ  FOOT 
1007)  EQUNTC,LOFEQ,FACST,LOFFA 
( 3X 

EQUIPMENT  UNIT  COST  -',F9.2,6X. 

LIFE  OF  EQUIPMENT  - ',l2,/,3X, 

FACIL  I N I T/REFURB  COST  -*,F9.2,6X, 

LIFE  OF  FACILITY  - *,l2) 


15  16  17 

10  < 1X,F6.0),//,3X, 

' » F8. 2 » 6X» 

— *,F6.2,/,3X, 

• .F7.2.6X. 

— ' ,r6.2,/,3X, 

* , F7 *2, 6X , 

- ' , F6.2,/,3X, 

• ,F8.2,6X, 

*,F4.2,/,3X, 
• ,F8.2,6X, 

- ' ,F6.2) 


2', 

9 

11' 

18 


WRITE  SUMMARY  OF  ANNUAL  TECHNICAL  RESULTS 


920 


IF  (.N0T.RPT3) 
WRITE  (6,1003) 


1 
2 

1003  FORMAT 
A 
8 
C 
D 
E 


GO  TO  930 
COURSE, DRATE.N, INRATE 


w uur\3c  , un.M  i c , n , iurm  i c , AGRAD , A AS  I N , A AOB  , APSP  , 

AI NSTR, A ADMIN, AEQUP , APEQUP , AAEQUP , AFAC I L, A I MOMT , 


»jurrL i « 

< ' 1 ' ,28X, 'COURSE 
•COURSE  NUMBER 


ASUPPL,  AMIS^ 


CO^ 

_ • 


ANALYSIS' ,/, IX 
,A4,25X, 'DISCOUNT  RATE 


, 'INPUT:* ,/j3X, 


PERCENT' ,/,3X, 'PLANNING  PERIOD  - ',I2,27X, 
•INFLATION  RATE  - '.F4.1X*  PERCENT ',//, IX , 
•OUTPUT  TECHNICAL  RESULTS :',// ,3X , 

•AVE.  NO.  OF  GRADUATES  ROD  - • , F 10. I , / , 3X , 


»F4. 1 i 


C-13 
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C 

C 

C 


f-  'AVE.  NO.  OF  STUDENTS  IN 

G 'AVE.  AVERAGE  ON  BOARD 

H 'AVE.  NO.  OF  STUDENT  POSITIONS 

I 'AVE.  NO.  OF  INSTRUCTORS  ROD 

J * AVE . NO.  OF  ADMIN  PERS  ROD 

K • AVE • NO.  OF  EQUIPMENTS  ROD 

L 'AVE.  ANNUAL  EQUIP  PURCHASES 

M 'AVE.  ANNUAL  EQUIP  AVAILABLE 

N 'AVE.  NO.  SQUARE  FEET  RQD 

0 'AVE.  1NSTR.  MAT.  MAINT  HR  RQD 

P ' AVE . NO.  SUPPLIES  RQD 

g 'AVE.  NO.  MISCELLANEOUS  RQD 

WRITE  ANNUAL  TECHNICAL  RESULTS 


tF10.lt/ , 3X , 
•F10.1»/t3Xt 
♦F10.1,/t3Xt 
»F  10.  1 , / , 3X , 
tF10.lt/ 1 3X , 
,F10.1t/t3X, 
t F 10. 1 1 / t 3X , 
tF10.lt/t3X, 
tFlO.l,/  ,3X, 
♦F10.lt/t3Xt 
♦FlO.lt/ »3X, 

t F 10. 1 1 


930  IF  ( .NOT . RPT A ) GO  TO  940 

WRITE  (6, 1005 ) COURSE, ORATE, N, INRATE, (DIGIT(I), 1 = 1, 5), 

1 ( GRAD( I ) . 1=1,5) , (STUD( 11,1=1,5), 

2 ( AOB (I), 1 = 1,5), ( PS P(I), 1*1,5), 

3 ( R l NSTR ( I ), I — 1 , S ) , (RADMINI I ), 1 = 1,5), 

4 ( REQUI P ( I ) , 1 = 1, 5), (PEQUI P( I ), 1=1,5)  , 

5 ( AEQU I P ( I ) , 1=1,5) , (RFACILI I ), 1 = 1,5) , 

6 ( IMDMNTU  ) . 1 = 1 ,5)  ♦ (RSUPPLI I ),  1 = 1,5)  ♦ 

7 < RMISCI I ) , 1=1,5) 

IF  (N.LE.5)  GO  TO  940 

WRITE  (6,1005)  COURSE, ORATE, N, INRATE, ( DIGI T ( I ) .1*6,10) , 

1 ( GRAD ( I ) , 1=6, 10), (STUD( I ) , 1=6, 10) , 

2 
3 


4 

5 

6 
7 


( AOB( I ) , 1=6.10), (PSP( I ) , 1=6. 10), 

( RINSTRI I ) , 1=6, 10) , (RADMINI I ) , 1=6,10) , 


( REQUIP (I), 1=6, 10), (PEQUI 
( AEQU I P ( I ), 1=6, 10) , (RFACt 


P( I ) ,1=6,10) , 
L ( I ), 1=6, 10), 


( I MDMNT ( I ) , 1=6, 10) , (RSUPPH I ),I=6,10) , 
( RMI SC ( I ) , I =6, 10 ) 


IF  (N.LE.10)  GO  TO  940 
WRITE  (6,1005)  COURSE, ORATE, N, INRATE, (DIGIT( I ), 1=11,15), 

1 (GRAD(I),I=ll,15),(STUD(I),I=ll,15), 

2 ( AOB< I ),I*11,15),{PSP( I ),I*ll,l5), 

3 (RINSTR( I ), 1=1 1,15), (RADMINI I ), 1=11,15) , 

4 ( REQUI P( I ) , 1=11,15) , ( PEQUI P( I ), 1=11,15) , 

5 ( AEQUIPt I ), 1 = 11,15) ,( RFACILI I ), 1 = 11,15)  , 

6 ( I MDMNT (I), 1=11, 15 ), (RSUPPLI I), 1=11, 15), 

7 ( RMI SC ( I ), 1=11, 15) 

IF  (N.LE.15)  GO  TO  940 

WRITE  (6,1005)  COURSE, ORATE, N, INRATE, (DIGIT(I), 1=16, 20), 


C 

C 

C 


1 
2 

3 

4 

5 

6 
7 

1005  FORMAT  ( 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 
G 
H 
I 
J 


w MIC,,,  IrflNAIC,  V U 1 V 1 I ( I I ,1—10 

( GRAD( I ) , 1=16,20) , (STUD ( I ), 1=16,20) , 

( AOB ( I ) , 1=16,20) . (PSP ( I ) , 1=16.20) , 

( RINSTRI I ), 1 = 16, 20 ) , ( RADMI N (1), 1*16, 20)  , 

( REQUIP ( I ), 1 = 16,20) , ( PEQUI P( I ), 1 = 16,20) , , 

( AEQU I P ( I ), 1 = 16,20) , (RFACILI  I ), 1 = 16,20)  , 

( I MDMNT ( I ), 1=16,20), (RSUPPL( I ), 1=16,20) , 
(RMISCI I), 1*16,20) 

1' ,28X, 'COURSE  COST  ANALYSIS' » / , IX » • I NPUT : » , / , 3X , 
COURSE  NUMBER  - • , A4.25X, • Dl SCOUNT  RATE  - *,F4.l, 


PERCENT' ,/,3X, 'PLANNING  PERIOD  - *,I2,27X, 

, p,  , , - 


OUTPUT  TECHNICAL  RESULTS: • ,//,32X, 

YEAR  », 1 2, • YEAR  ',12,'  YEAR  *,I2,' 

YEAR  ».I2,//,3X. 

NO.  OF  GRADUATES  ROD 
NO.  OF  STUDENTS  IN 
AVERAGE  ON  BOARO 
NO.  OF  STUDENT  POSITIONS 
NO.  OF  INSTRUCTORS  RQD 
NO.  OF  ADMIN  PERS  RQD 
NO.  OF  EQUIPMENTS  RQD 
ANNUAL  EQUIP  PURCHASES 
ANNUAL  EQUIP  AVAILABLE 
NO.  SQUARE  FEET  RQD 
NO.  I NS  TR  MAT  MAINT  HR  RQD • , 5 ( IX , F9 .0 ) , / , 3X , 
NO.  SUPPLIES  RQD  • , 5 ( 1 X , F9.0 ) , / , 3X, 

NO.  MISCELLANEOUS  RQD  • , 5 ( 1 X , F9.0  ) ) 


YEAR  ',12, 


• , 5 ( 4X , 16)  ,/.3X, 

' ,5( IX,F9.0),/,3X, 
' ,5(1X,F9.0),/,3X, 
• ,5(1X,F9.0),/,3X, 
• ,5(IX,F9.0),/,3X, 
• ,5(1X,F9.0),/,3X, 
•»5(1X»F9.0),/,3X» 
* ,5(1X,F9.0),/,3X, 
' , 5(  4XV I 6 ) , / , 3X, 

• ,5(1X,F9.0),/,3X, 


WRITE  SUMMARY  OF  ANNUAL  COST  RESULTS 
940  IF  I.N0T.RPT5)  GO  TO  950 

WRITE  (6,1002)  COURSE, DRATE.N. INRATE, NSTUD.DSTUD, I$TUD,FSTUD, 
1 NTRAV , DTRAV, I TR AV, F TRAV ,N I NSTR » DI NSTR , 1 1 NSTR , ' 


finstr.nadm’in.dadAin,  ia&min,fadmin,ne6uip,de6uip. 
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3 

5 

6 
7 

1002  FORMAT  ( 
1 
2 
3 
A 
* 

5 

6 
7 

a 

9 

1 

A 

a 
c 
0 
t 
F 
G 
H 


C 

C 

C 


I tQUlP,FEQUIP,NFAClL,OFACIL, I F ACI L , FFAC l L , NI MD. 

0 I MO. 1 IMD.F IMD.NSUPPL.DSUPPL. I SUPPL  » FSUPPL »NMI SC . 
DMISC, IMISC,FM1SC,SNA0C,SDA0C,SI AOC.SFAOC.GNAOC, 
GDAOC,GIAOC,GFAOC,UNAOC,UDAOC,UIAOC,UFAOC,PNAOC, 

P DAOC » P I AOC » PFAOC 

1 • ,28X* 'COURSE  CUST  ANALYSIS' « / , IX , 'I NPUT : ' » / » 3X » 

COURSE  NUMBER  - ' , AA, 25X , • oi SCOUNT  RATE  - *,FA.l, 
PERCENT' i / , 3X . ' PLANNING  PERIOD  - '.I2.27X, 

INFLATION  RATE  - ',F4.1,'  PERCENT ',//, IX , 

OUTPUT  COST  RESULTS! ' » I0X • 

NON-DISC  DISCOUNTED  NON-DISC  Dl SCOUNTED* , / , 31X , 

CONSTANT  % CONSTANT  $ CURRENT  i CURRENT  $',/,3X, 

STUOENT  SALARIES' , 10X . 4 ( 2X, F 10. 0 ) , / , 3X , 

STUDENT  TRAVEL' ,I2X,AI 2X.F 10. 0)./,3X, 

INSTRUCTOR  S AL ARY • , 9X , 4 ( 2X, F 10. 0 ) . / . 3X , 

ADMINISTRATIVE  SALARY  * . 5X . A ( 2X , FlO .6 ) , / , 3X, 

EQUIPMENT ', 17X.AI IX, FI  1.0) ,/,3X, 

FACILITIES' ,16X, 4 (IX, Fi 1.0),/, 3X, 

INSTRUCTIONAL  MATERIALS' , 3X , 4 1 2X , F 1 0 . 0 ) , / , 3X , 

SUPPLIES' »18X, A (2X, FlO. 01 ,/,3X, 

MISCELLANEOUS' , l3X,4(2X,Fi0.0),//,3X, 

TOTAL  OPERATIONAL' ,9X,4( IX, FI 1.0) ,//, 3X, 

COST  PER  GRADUATE' ,8X,A(AX,F8. 21 ,/, 3X, 

COST  PER  STUOENT  I NPUT* , 3X , A ( AX , F 8. 2 > . / , 3X, 

COST  PER  STUDENT  POS I T ION • , 4 l 4X , F8 . 2 ) ) 


WRITE  ANNUAL  COST  RESULTS 

950  IF  (.N0T.RPT6)  GO  TO  960 

WRITE  (6.I00A)  COURSE, DRATE.N, INRATE, (DIGlT(l), 1*1, 5), 

1 (CSTUDl I ) . 1=1,5). (CTrAv( I ) , 1=1,5) , 

2 ( CINSTRI I ) , 1=1 ,5), (CADHINl I ) , 1*1,5) , 

3 ( CEQU I P ( I ) , 1=1,5) , (CFACILi I ) ,1=1,5) , 

A (CIMDMTl I ) , 1=1,5), (CSUPPL( I ), 1=1,5) , 

5 ( CM  I SC ( I ), 1 = 1,5) , (COPTOT( I ), 1 = 1,5), 

6 { CGRAD ( I ) , 1=1.5) ,(CSTIN( I ), 1=1,5), 

7 ( CSP ( I ) , I = l , 5 I 
IF  (N.LE.5)  GO  TO  960 

WRITE  ( 6 , 100A ) COURSE, DRATE,N, INRATE, (DIGIT! I ), 1=6, 10), 

1 (CSTUDl  I ) .1*6,10),  (CTRAVU  ).  1*6,10). 

2 ( CINSTRI I ) , 1=6, 10) , (C ADMIN! I ) , 1=6, l6) , 

3 ( CEQU I P ( I ) , 1=6, 10) , (CFACILl I ) , 1=6, 10) , 

A ( CIMDMTl I ) . 1=6, 10) , ( CSUPPL ( I ). 1=6,10) , 

5 ( CM  I SC (I) , 1=6, 10) , (COPTOT! I ) . 1=6. 10) , 

6 ( CGRAD ( I ) , 1=6, 10) , (CSTIN! I ), 1*6, lO) , 

7 ( CSP( I ) , I =6 , 10 ) 

IF  (N.LE.IO)  GO  TO  960 

WRITE  (6.100A)  COURSE. ORATE, N, INRATE, (DIGIT! I ). 1*11.  15), 
(CSTUDl I ) , 1=11. 15) , (CTRAV! I ), 1=11,15) , 


1 

2 
3 
A 

5 

6 
7 


(CINSTRI  I ),I-U,15),(CADMIN(I  ),  1 = 11,15), 

( CEQUI P ( I ), 1=11,15) ,(CFAC I L( I ) ,1-11,15) , 
(CIMDMTl I ). 1=11.1 5), (CSUPPL (I ). 1=11,15), 
(CMISCl I ) , 1=11,15) , (COPTOT ( I ) ,1  = 11,  15) , 
(CGRAD! I ) , 1=11, 15) , (CSTIN(I) , 1=11,15) , 
(CSP( I >, 1=11,15) 

IF  (N.LE.15)  GO  TO  960 

WRITE  (6.100A)  COURSE, DRATE.N, INRATE, (DIGIT(I), 1=16, 20), 
( CSTUDl I ) . 1=16,20) , (CTRAV ( I ), 1=16.20) . 

( CINSTRI I ) , 1=16,20) , (CADM IN ( I ), 1=16,20) , 

( CEQU I P ( I ) , 1=16,20) , (CFACILl I ), 1*16,20), 
(CIMDMTl I ), 1=16,20) , ( CSUPPL ( I ) , I =16 , 20 ) , 


1 
2 
3 
A 
5 
fa 
7 

l OJA  FORMAT  ( 

1 

2 
3 
A 

5 

6 

7 

8 
9 
A 
B 
C 
0 


( CMISCl I ) , 1=16,20) , ( COPTOT ( I ) . 1=16, 20) , 

( CGRAD ( I ) , 1=16.20) , (CSTINl I ), 1=16,20) , 

( CSP( I ) ,1=16,20) 

1' ,28X, 'COURSE  COST  ANALYS I S • , / , 1 X, • I NPUT : • , / . 3X , 
COURSE  NUMBER  - • , AA.25X, • DISCOUNT  RATE  - *,FA.l, 
PERCENT' ,/,3X, 'PLANNING  PERIOD  - *,I2,27X, 

INFLATION  RATE  - '.FA.l,'  PERCENT ',//, IX , 

OUTPUT  COST  RESULTS:  (NON-DISC  CONSTANT  S)',//.32X, 


YEAR  ». 12, • YEAR  • , 12, 
YEAR  • , 12, //, 3X, 
STUOENT  SALARIES 
STUDENT  TRAVEL 
INSTRUCTOR  SALARY 
ADMINISTRATIVE  SALARY 
EQUIPMENT 
FACILITIES 

INSTRUCTIONAL  MATERIALS 


YEAR  ',12,' 


YEAR 


12, 


,5(1X,F9.0),/,3X, 
,5(1X,F9.0),/,3X, 
,5(1X,F9.0) ,/,3X, 
,5(1X,F9.0),/,3X, 
,5( 1X,F9.0),/,3X, 
,5(IX,F9.0),/,3X, 
,5<1X,F9.0),/,3X, 
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c 

c 

c 


t 

F 

G 

H 

I 

J 


•SUPPLIES 

•MISCELLANEOUS 

• TOTAL  OPERATIONAL 

•COST  PER  GRADUATE 

•COST  PER  STUDENT  INPUT 

'COST  PER  STUDENT  POSITION 


» 5 ( IX , F9 .0 ) » / * 3X* 
,5(IX»F9.0)»/,3X» 
,5(IX,F9.0),/,3X, 
,5(1X,F9.0),/,3X, 
» 5( 1X,F9.0),/,3X, 
,5(1X,F9.0) ) 


960 


5000 

5001 
C *** 

*** 
*** 
* + + 
*** 
990 


C 

C 

C 

C 


C 

C 

C 

C 

C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


993 

** 

** 

** 

** 

** 

** 

** 

** 

** 

* + 


WRITE  MISSING  STATEMENT  NUMBERS 


IF  (.N0T.RPT7)  GO  TO  990 
IF  (K.LE.l)  GO  TO  990 
WRITE  (6,5000) 

K = K-I 

WRITE  (6,5001)  ( (MATA(l),MATB(I))»l*l,K) 

FORMAT  ( • 1 • , • MISSING  DATA  ANALYSIS') 

FORMAT  (IX, 'MISSING  DATA  CODE  * ',16, AX, 'CR IT  CODE  = ',16) 

fcTAM  DESIGN  MOD  - THIS  ROUTINE  TEMPORARILY  STORES  THE  RESULTS  OF 

LOOP  ONE  - BASELINE  RUN. 

RUN. 


991 

*** 
*** 
* * * 
*** 
*** 

992 


IF  (IND1.N 
DO  991  M*l 
ETATOl(M) 
ET  AT02 ( M ) 
ET  AT03 ( M ) 
ETATOA(M) 
ETAT051M) 
ET  AT06 ( M ) 
ETAT07 (M ) 
ET  AT08 ( M ) 
ET  AT09 ( M ) 
ETATiO(M) 
ETATll(M) 
1ND1  « 1 
GO  TO  10 


E.O) 

,20 


JO  TO  992 


ETAGRD(M) 
ETASTU(M) 
ETAAOB(M) 
ETAINS(M) 
ETAADM(M) 
ETAEQP(M) 
ETAFAC(M) 
ETASUP(M) 
ETAMIS(M) 
ETAI NV ( M ) 
ETAREC(M) 


ET AM  DESIGN  MOD  - THIS  ROUTINE  CALCULATES  THE  DIFFERENCE  BETWEEN 

LOOP  ONE  - BASELINE  RUN,  AND  LOOP  TWO  - BENEFIT 


03  993  M* 

ETAGRD(M) 

ETASTU(M) 

ET AAOB(M) 

ETAINS(M) 

ETAADM(M) 

ET  AEQP ( M j 

ETAFAC(M) 

ET  ASUP1 M ) 

ETAMIS(M) 

ETAINVtM 

ETAREC(M) 

IND1  * 0 

GO  TO  995 


1,20 

* ETATOl(M) 

* ETAT02 ( M ) 
= E T AT  03 ( M ) 

* ETATOA(M) 

- ETAT05 ( M) 
« ETAT06 ( M) 
« E TAT07 ( M ) 

- ET  AT  08 ( M ) 
« ETAT09 ( M ) 

ETAT 10 ( M ) 
ETATll(M) 


- ETAGRO(M) 

- ETASTU ( M ) 

- ETAAOB(M) 

- ETAINS(M) 

- ETAADM(M) 

- ETAEOP(M) 

- ETAFAC(M) 

- ETASUP(M) 

- ET  AMI S ( M) 

- ETAINV(M) 

- ETAREC(M) 


ETAM  DESIGN  MOD  - 


THE  FOLLOWING  OUTPUT  REPRESENTS  THE  COST  MODEL 
RESULTS  FOR  COURSES  WHICH  WILL  BE  SUMMARIZED  BY 
COURSE  AND  OUTPUTED  TO  THE  CMR  FILE  FOR  USE  IN 
THE  DECISION  AND  FINANCIAL  ANALYSIS  MODULES. 

IT  REPRESENTS  THE  DIFFERENCE  BETWEEN  LOOP  ONE 
WHICH  CALCULATED  BASELINE  AND  LOOP  TWO  WHICH 
HAD  THE  BENEFIT  PATTERN  APPLIED. 


WRITE  ETAM  OUTPUT  RESULTS 


YEAR 

,//,3 X, 


12, 


1510  FORMAT  ( • 1 • , 28X, • ETAM  OUTPUT  FACTORS' , //,32X 

1 'YEAR  ',12,' 

2 • YEAR  ',12 

3 'NO.  OF  GRADUATES  ROD 

A 'NO.  OF  STUDENTS  IN 

5 'AVERAGE  ON  BOARD 

6 'NO.  OF  INSTRUCTORS  ROD 

7 'NO.  OF  ADMIN  PERS  ROD 

8 'NO.  OF  EQUIPMENTS  RQD 

9 'NO.  SQUARE  FEET  RQD 


YEAR  ',12, 


, 5( 1X.F9.0) ,/ ,3X, 
,5( IX, F9.0 ) , / , 3X, 
,5( IX,F9.0),/,3X, 
,5(1X,F9.0),/,3X, 
,5(1X,F9.0),/,3X, 
,5(1X,F9.0),/,3X, 
,5(1X,F9.0),/,3X, 
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2 

3 

6 

I 

i 

3 

b 


i t s k*  I TE  ( 6 y 
I 

H 
•> 
t 


WRITE  (6, 


NO.  SUPPLIES  ROD 
NO.  MISCELLANEOUS 
ANNUAL  INVESTMENT 
ANNUAL  RECURRING 
1510)  (DIG. T(I), I 
( tTAGKDl I ) , 
( ETAAOB( I ) , 
( ET  AADM ( I ) , 
( ETAFACI I J, 
( ETAMISI I ) , 
( ETAREC ( I > , 
1510)  ( DIGIT! I ) . I 
( ETAGR.M 1 ) , 
( ET  AAOB ( I ) , 
( ETAADMl I ) , 
( ETAFACt I ) , 
( ETAMIS( I ) . 
( t T ARtC ( I ), 
W«  I TE  (6,1510)  ( DIGIT*  I ) , I 
( ETAGRDt I ) , 
( ET  AAOB ( I ) , 
( ET  AADM ( I ) , 
( ETAFACi  I ) , 
( ETAMISI  l ) , 
( ET  AREC ( I ) , 


ROD 

OOLLARS 
CST/SAV 
= 1,  5), 


1=  1 
1=  1 
1=  1 
1=  1 
1=  1 
1=  l 
= 6, 
1=  6 


1 = 
1 = 
1 = 
1 = 
1 = 


WRITE  (6, 


1510)  (DIGIT! I ). I 
( ETAGRDI I ) , 
( ETAAOB ( I ) , 
( ETAADMl I ) , 
( ET AF AC ( I ) , 
( ETAMISl  I ) , 
( ETAREC ( I ) , 


11, 

1 = 11 
1 = 11 
1 = 11 
1 = 11 
1 = 11 
1=11,15) 
=16,20) 


5) 
5) 
5) 
5) 
5) 
5) 

lioi 

10) 

10) 

10) 

10) 

10) 

liJi 

15) 
15) 
15) 
15 ) 


a * * 

IF  (.NOT. LAST)  GO  TO  10 
1511  CONTINUE 
i 5 1 2 STOP 
END 


1 = 16 
1 = 16 
1 = 16 
1=16 
1 = 16 
1=16 


m 

20) 

20) 

20) 

20) 

20) 


• ,51 1X.F9.0 ) ,/ , 3X, 

• ,5(  IX.FO.C ) ,//,3X, 

• ,51 1X.F9.0)./, 3X, 

• ,5(1X,F9.0) ) 

,(ETASTU( I ) , I = 1 , 5) , 
, ( ETA  I NS ( I ) , 1=  1 , 5) , 
, ( ET AEQP ( I ) , I = 1,  5), 
, ( ETASUP ( I ) , I = 1,  5), 
, ( ET  A I NV ( I ), 1=  1 , 5) , 

, (ETASTUI 1 ) , 1=  6,10)  , 
, ( ETA  I NS ( 1 ) , 1=  6,10), 
, ( ET  AEQP ( I ),I=  6,13), 
, ( ETASUP ( I ) , 1=  6,10)  , 
, ( ETA  I NV ( I ), 1=  6,10), 

, (ETASTUI I ), 1=11 ,15) , 
, ( ET  A I NS ( I ), 1 = 11,15), 
, ( ETAEOP ( I ), 1 = 11 , 15)  , 
, ( ETASUP ( I ), 1 = 11, 15), 
, ( ETAINVI I ) , 1 = 11 , 15  ) , 

, ( ETASTUI I ), 1=16,20) , 
, ( ETAINS ( 1 ), 1=16,20) , 
, (ETAEQPI I ) , 1 = 16,20) , 
, ( ET  ASUP ( I) , 1 = 16,20) , 
, (ETAINVI I ), 1 = 16,20)  , 


C-17 


TAEG  REPORT  NO.  40 
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SECTION  D.  1 
INTRODUCTION 


The  purpose  of  this  appendix  is  to  provide  documentation  for  those  programs 
that  have  been  Implemented  to  date  in  the  computerization  of  ETAM.  Broadly, 
this  includes  programs  in  two  general  support  areas  - those  modules  used  to 
construct  the  data  bases  used  by  the  interactive  ETAM  system,  and  the 
programs  which  Implement  the  Range-of-Effect  search  and  reporting  process. 

Neither  the  ETAM  system,  nor  the  environment  in  which  the  current  system 
is  implemented  is  of  a trivial  nature.  The  key  to  interpretation  of 
a majority  of  this  appendix  presumes  at  least  a minimal  working  knowledge 
on  the  part  of  the  reader  with  both  basic  ETAM  and  the  programming 
requirements  of  the  timesharing  vendor. 


ORGANIZATION 


This  appendix  is  organized  into  six  major  sections.  Section  D.l  illustrates 
the  logic  flow  of  the  eighteen  programs  implemented  in  the  current  ETAM 
system.  A separate  coverage  of  each  of  the  programs  Is  made  In  Section  D.2. 
Section  D.3  documents  the  timesharing  system  executive  routines  that  are 
coimwn  to  more  than  one  program.  The  details  and  formats  of  the  online 
files  required  to  support  the  ETAM  system  are  covered  in  Section  D.4. 

Input  and  control  data  used  in  the  makeup  of  the  online  ETAM  system  are 
documented  in  Section  D.5.  In  Section  D.6  appear  listings  of  the  source 
cards  for  each  of  the  programs  in  the  current  system.  In  surmiary,  the 
contents  of  this  appendix  are: 


Section  D.l 
Section  D.2 
Section  D.3 
Section  D.4 
Section  D.5 
Section  D.6 


Introduction 

Program  Descriptions 

System  Executive  Routines 

Online  File  Formats 

Input  and  Control  Data 

Program  Listings  (Service  Cards) 


EQUIPMENT  ENVIRONMENT 


All  ETAM  programs  are  designed  to  run  in  an  interactive  mode  on  a remote 
time-shared  computer.  Timesharing  services  and  support  were  obtained  on 
a lease  basis  from  National  CSS,  Inc.,  Norwalk,  Connecticut.  The  National 
CSS  VP/CSS*  system  Is  not  documented  within  this  publication.  A basic 
knowledge  of  sign-on,  sign-off,  editing,  and  program  execution  are  required 
of  the  ETAM  User. 
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The  ETAM  User  requires  a standard  remote  terminal  such  as  an  IBM  2741,  or 
a Teleterm  1030*.  The  terminal  is  connected  to  the  timesharing  vendor's 
computer  via  a dial-up  telephone  line  and  a modem.  Further  information  on 
the  distinct  types  of  terminal  equipments  which  can  be  employed  in  conjunction 
with  the  timesharing  support  should  be  obtained  from  National  CSS,  Inc. 

As  currently  configured,  the  ETAM  system  utilizes  thirty  cylinders  of  online 
direct-access  storage  (disk  storage)  and  all  programs  will  function  in 
a 256K  byte  partition  of  storage. 


PROGRAM  ENVIRONMENT 

The  implications  associated  with  the  following  program  documentation  and 
VP/CSS  executive  sequences  presupposes  a working  knowledge  above  that  of 
the  casual  User  with  the  basic  services  provided  by  the  National  CSS  (NCSS) 
timesharing  vendor.  These  services  are  formally  documented  by  NCSS  and 
are  not  reproduced  within  this  manual.  To  assist  those  who  are  unfamiliar 
with  the  NCSS  documentation,  the  following  references  are  mentioned: 


System  Function 

Typing  Conventions,  Login,  Logout 

System  Interruptions 

CSS  COMMANDS  SUMMARY 

CSS  File  Creation  and  Maintenance 

VP/CSS  EXECUTIVE  Language 


NCSS  Reference 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Section  1 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Section  7 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Appendix  B 

A Guide  to  the  National  CSS  Computer 
System  for  Application  Product  Users 
(NCSS  Form  991)  Section  3 

VP/CSS  EDit  Command  (NCSS  Form  108) 

VP/CSS  EXECUTIVE  Language  (EXEC) 
(NCSS  Form  109-5) 


* Trademark  of  Computer  Devices,  Inc. 
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ETAM  SYSTEM  INITIALIZATION 

A total  of  eighteen  programs  are  involved  in  the  current  ETAM  system.  In 
a broad  sense,  these  can  be  divided  into  two  distinct  functional  areas. 
Eleven  programs  are  used  in  the  generation  and  maintenance  of  the  ETAM 
abbreviated  data  bases.  The  remaining  seven  programs  implement  the  ETAM 
Range-of-Effect  (ROE)  search  process. 

Figure  D.l-1  illustrates  the  basic  initialization  process  that  is  required 
prior  to  the  build  of  the  abbreviated  data  bases.  All  files  are  indicated 
with  a number;  this  "File  Number"  will  be  consistent  throughout  this 
appendix.  The  card  files  of  Figure  0.1-1  must  be  transmitted  to  the 
timesharing  vendor's  computer  site  and  introduced  to  the  online  system 
via  the  terminal  "Offline  Read"  process.  Executive  STARTUP  has  been 
designed  to  function  with  any  or  all  of  the  card  files  indicated.  This 
executive  can  be  run  multiple  times,  if  required.  All  of  the  input  data  is 
sorted  via  executive  STARTUP,  and  the  Master  Reference  file  (File  Number  1) 
is  set  to  zero  by  Program  PI 8. 

As  indicated  in  Figure  D.l-1,  the  P»scriotor  Master  Index  is  created  by 
running  Program  PI 6 . All  of  the  programs  of  the  ETAM  system  are  supported 
by  a unique  executive.  The  executive  for  each  program  bears  the  name  "RUN" 
followed  by  the  unique  program  name.  Thus,  Proaram  PI 6 is  executed  by  an 
invocation  of  Executive  RUNP16. 


LOAD  OF  THE  ABBREVIATED  COURSE  DATA  BASE 


Figure  D.l-2  illustrates  the  load  of  the  four  files  of  the  Abbreviated 
Course  data  base.  Each  of  the  three  data  bases  of  the  ETAM  system  (Course, 
Vehicle,  and  Task)  is  constructed  by  byilding  a basic  data  file,  a file 
directory,  and  a descriptor  file.  For  the  Course  entity,  two  directories 
are  required. 

Program  PI 4 uses  the  CIN  (Course  Identification  Number)  of  the  Course 
descriptor  input  card  file  as  a selection  criteria  for  obtaining  Course  data 
from  the  NITRAS  tape.  In  the  current  implementation,  descriptors  have  been 
assigned  to  121  unique  CIN's.  The  NITRAS  tape  contains  data  relative  to 
more  than  4000  Courses.  The  following  load  counts  were  extracted  from  the 
output  of  Program  PI 4: 


132 

121 

50 

111 

4,127 


Total  Descriptor  Cards  Read 

Total  Unique  CIN's  on  Descriptor  Cards 

Total  Number  CIN's  with  No  Data  Match  in  NITRAS 

Total  Number  Course  Records  extracted  from  NITRAS 

Total  Number  Course  Records  on  NITRAS  Tape 
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EXECUTIVE  » STARTUP 


MASTER 

DESCRtrrOR 

INDEX 

Sy. 

2 

_/  OFFLINE  \ _ 

OICRDS 

PROGRAM 

DINO 

— MAP  J 

- F16 

INITILIZATION  (STARTUP)  OF  ETAM  SYSTEM  DATA  SETS  PRIOR  TO  CONSTRUCTION 
OF  THE  ABBREVIATED  DATA  BASES 

All  Filet  shown  have  filename  ■ ETAM 

Names  shown  above  are  filetype;  e.g.,  the  sorted  course  descriptor  output  of  Executive  STARTUP 
is  called  ETAM  SC D ESC 

FIGURE  0.1-1.  INITIALIZATION  (STARTUP)  OF  ETAF/I  SYSTEM  DATA  SETS  PRIOR 
TO  CONSTRUCTION  OF  THE  ABBREVIATED  DATA  BASES 


0.1-4 
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The  two  Course  directories  are  constructed  by  Program  P7.  The  Abbreviated 
Course  data  file  is  used  as  the  source.  A directory  ordered  by  Course 
CIN  and  a directory  ordered  by  Course  COP  are  required. 

The  Course  descriptor  card  input  is  used  by  Program  P7A  to  construct  the 
Course  descriptor  file  (File  Number  6).  This  file  will  be  the  reference 
to  be  used  in  the  ETAM  Range-of-Effect  search  process. 

Each  of  the  programs  of  the  data  base  build  processes  Introduce  counts 
into  the  Master  Reference  file  (File  Number  1).  This  file  will  be  used 
by  all  programs  which  reference  the  abbreviated  data  bases.  These  files 
will  be  accessed  randomly  and  the  counts  provided  by  the  Master  Reference 
file  will  be  used  as  program  internal  selfchecks  to  prevent  Input/output 
errors . 

The  final  program  of  the  Course  data  base  build  process  is  the  Course 
Print  Program,  Program  P7B.  This  program  offers  Interactive  options  to 
request  print  of  the  Course  data  base  contents. 

Program  P20  is  not  shown  on  the  diagrams  of  this  appendix.  This  program's 
function  is  to  print  the  entitles  of  a selected  data  base,  followed  by  all 
descriptors  applicable  to  each  entity.  This  program  provides  an  interactive 
option  to  allow  print  of  Course  entities  plus  descriptor  data. 


ABBREVIATED  VEHICLE  DATA  BASE  LOAD 

The  load  of  the  three  files  (data,  directory,  and  descriptor)  of  the  Vehicle 
data  base  is  illustrated  in  Figure  D.l-3.  Both  the  data  file  and  the 
descriptor  file  are  loaded  from  card  input  as  transmitted  to  the  timesharing 
computer  system.  At  present,  data  coverage  for  63  unique  Vehicle  stock 
numbers  has  been  provided.  Record  counts  relative  to  the  Vehicle  data  files 
are  written  into  the  Master  Reference  file  by  Program  P9. 

Printer  dumps  of  the  Abbreviated  Vehicle  data  base  contents  are  the  output 
of  Program  P8A.  Options  (interactive)  supporting  data  file  print  and  print 
of  the  general  Vehicle  type  descriptors  are  available.  Program  P20  (not 
shown  on  Figure  D.l-3)  can  be  used  to  produce  a listing  of  all  Vehicle 
entities  and  the  specific  descriptors  applied  to  each. 


ABBREVIATED  TASKS  DATA  BASE  LOAD 

The  build  of  the  Abbreviated  Tasks  data  base  is  shown  in  D. 1-4.  This  is 
the  largest  of  the  three  ETAM  data  bases.  The  current  system  supports 
670  distinct  Tasks.  Both  the  Tasks  data  file  and  descriptor  file  are 
loaded  from  card  input.  Due  to  the  bulk  of  the  output  for  the  Vehicle 
entity.  Program  P9  allows  selection  of  the  printer  output  device.  The 
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DETAIL  SYSTEM  FLOW 
ABBREVIATED  VEHICLE  DATA  BASE  LOAD 


NOTES  - Names  in  square  brackets  are  program 

internal  Filenames  (Job  Control  Language 

OPTION 

OPTION 

B 

[SYSPRINT] 

DDNAME's) 

A 

— Numbers  indicated  on  the  files  are  File 

Reference  Numbers  as  discussed  in  the  print  all  print  DESCRIPTORS 

text  VEHICLE  DATA  ASSIGNED  TO 

VEHICLES 

FIGURE  D.1-3.  DETAIL  SYSTEM  FLOW  ABBREVIATED  VEHICLE  DATA  BASE  LOAD 
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DETAIL  SYSTEM  FLOW 
ABBREVIATED  TASK  DATA  BASE  LOAD 


NOTES  - Names  in  square  brackets  are  program 

internal  Filenames  (Job  Control  Language 
DDNAME's) 

- Numbers  indicated  on  the  files  are  File 
Reference  Numbers  as  discussed  in  the  text 


FIGURE  D.1— 4.  DETAIL  SYSTEM  FLOW  ABBREVIATED  TASK  DATA  BASE  LOAD 
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online  terminal,  offline  printer,  or  both  may  be  chosen  interactively  by 
the  User.  Program  P9  inserts  record  counts  from  the  Vehicle  data  base 
files  into  the  Master  Reference  file  (File  Number  1). 

Functioning  in  a manner  parallel  to  that  of  Program  P8A  for  Vehicle  data. 
Program  P9A  will  produce  printer  dumps  of  the  contents  of  the  Tasks  data 
base.  For  a listing  of  Task  entity  and  all  related  descriptors.  Program 
P20  must  be  used. 


ESTABLISHING  A NEW  ETAM  PROJECT 

All  of  the  files  generated  thus  far  have  been  ETAM  "System"  files  which 
are  of  equal  utility  to  all  ETAM  Projects.  The  files  covered  from  this 
point  forward  are  unique  to  each  unique  ETAM  project. 

The  first  step  in  the  introduction  of  a new  ETAM  Project  to  the  ETAM  System 
is  accomplished  by  running  Program  PI 7.  This  is  illustrated  on  Figure  D.l-5. 
The  four  Project  Data  Base  files  of  interest  in  the  Range-of-Effect  search 
are  the  ID,  REC,  REV,  and  REJ  files  (File  Numbers  26,  27,  28,  and  29).  These 
files  contain  an  identification  of  the  specific  project  and  indicate  those 
descriptors  that  are  to  be  used  in  the  forthcoming  ROE  search.  The  other 
Project  Data  Base  files  that  can  be  created  via  Program  PI 7 are  of  textual 
interest  only  at  this  point. 

Program  PI  can  be  used  to  print  any/all  of  the  Project  Data  Base  file 
contents  for  a specific  project. 


EXECUTION  OF  THE  RANGE-OF-EFFECT  SEARCH 

The  Search  Argument  Edit  Program  P2  accomplishes  the  first  step  of  the  Range-of 
Effect  search  process.  The  search  arguments  for  the  entities  Courses,  Vehicles 
and  Tasks  are  located  in  files  REC,  REV,  and  REJ,  respectively.  The  User 
may  peruse  those  descriptors  already  in  the  system  and  delete  or  add  as  is 
necessary.  The  final  action  of  Program  P2  is  to  copy  the  edited  results  into 
the  search  argument  file  (File  Number  30). 

File  SARG  (File  Number  30)  is  generated  as  a result  of  running  Program  P2. 

As  shown  in  Figure  D.l-5,  this  is  the  only  method  of  generating  the  SARG 
file.  Since  the  SARG  file  is  the  prime  input  to  the  Search  Program  P3,  it 
is  required  that  Program  P2  be  executed  prior  to  executing  Program  P3. 

Program  P3  accomplishes  the  actual  search.  No  extensive  output  is  directed 
to  the  terminal  by  Program  P3.  The  search  results  are  accumulated  into 
the  RESU  file  (File  Number  31).  The  User  is  informed  by  terminal  output  as 
to  the  size  (number  of  records  selected  as  a result  of  the  search)  of  the 
results  file  RESU.  If,  due  to  the  number  of  records  selected  in  the  search. 
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the  User  determines  that  an  obvious  error  has  been  made  in  the  selection 
of  search  arguments,  the  argument  set  may  be  edited  by  re-running  Program 
P2.  A subsequent  run  of  the  search  Program  P3  will  create  a new  results 
file. 


PROCESSING  OF  SEARCH  RESULTS 

Figure  D.l-6  indicates  the  logic  flow  of  the  three  programs  that  are 
involved  in  the  processing  of  the  results  of  a Range-of-Effect  search. 
Program  P5A  is  used  to  print  the  results  of  a search;  the  results  file 
RESU  is  used  as  the  input  to  Program  P5A.  This  program  also  numbers  each 
of  the  records  as  they  are  printed.  This  is  vital  since  the  results  edit 
program  (Program  P5B)  requires  that  record  numbers  be  entered  as  a part  of 
the  interactive  commands. 

Program  P5B  allows  the  User  to  add  or  delete  records  from  the  search 
results.  Upon  termination.  Program  P5B  copies  all  original  and  added 
results  into  the  extract  search  results  file  REE  (File  Number  32). 

Program  P5C  prints  the  contents  of  the  extract  results  file  in  a finished 
format.  This  listing  is  the  conclusion  of  the  Range-of-Effect  search 
process. 
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SECTION  D.2 
PROGRAM  DOCUMENTATION 


In  this  Section  are  documentation  packages  covering  each  of  the  eighteen 
programs  of  the  current  ETAM  system  implementation.  Specific  information 
relative  to  each  program  is  provided  in  the  following  general  areas: 

(1)  Executive  support  required 

(2)  Itemization  of  all  data  files  processed  (input  and  output), 
their  internal /external  names  and  data  formats 

(3)  Discussion  of  program  function 

(4)  Listings  of  any  executive  routine(s)  associated  only  with 
the  program  being  covered 

(5)  Specific  User  instructions  as  to  the  use  of  program  features 

(6)  Error  messages  generated  and  their  meaning 

(7)  Sample  output  resulting  from  program  execution 
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PROGRAM  NAME  : PI 
ENTRY  POINT  : PI 

RUN  EXECUTIVES(S)  : RUNP1 , NONAME,  IFNAME,  JCL,  JCL2 

USER  OUTPUT  VIA  : Terminal,  Offline  Printer,  or  Both 

USER  PROMPTING  : Internal  to  Program:  (1)  File(s)  to  be  Printed 

(2)  Output  Device(s)  Selection 

FUNCTION  : Prints  Contents  of  Any/All  Project  Files 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

SYSPRINT 

OUTPUT 

N/A  : THIS 

IS  THE  OFFLINE  PRINTER 

FA,  121,  121 

ID 

INPUT 

26 

DASD 

Projectname/ID 

F,  80,  80 

EXD 

INPUT 

33 

DASD 

Projectname/EXD 

F,  80,  80 

BPT 

INPUT 

34 

DASD 

Projectname/BPT 

F,  80,  80 

RKP 

INPUT 

35 

DASD 

Projectname/RKP 

F,  80,  80 

RRPJ 

INPUT 

36 

DASD 

Projectname/RRPJ 

F,  80,  80 

RRPK 

INPUT 

37 

DASD 

Projectname/RRPK 

F,  80,  80 

VQAL 

INPUT 

38 

DASD 

Projectname/VQAL 

F,  80,  80 

VARF 

INPUT 

39 

DASD 

Pro j ec t name/VAR  F 

F,  80,  80 

SCEN 

INPUT 

40 

DASD 

Projectname/SCEN 

F,  80,  80 

ALTP 

INPUT 

41 

DASD 

Projectname/ALTP 

F,  80,  80 

REC 

INPUT 

27 

DASD 

Projectname/REC 

F,  80,  80 

REV 

INPUT 

28 

DASD 

Projectname/REV 

F,  80,  80 

REJ 

INPUT 

29 

DASD 

Projectname/REJ 

F,  80,  80 

RESU 

INPUT 

31 

DASD 

Projectname/RESU 

FB,  16,  800 

REE 

INPUT 

32 

DASD 

Projectname/REE 

FB,  16,  800 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 
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Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Fllename/Filetype 

Format 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

COURSE 

DIRECT 

7 

DASD 

ETAM/COURSE 

DCIN 

INPUT 

8 

DASD 

ETAM/DCIN 

DCDP 

INPUT 

9 

DASD 

ETAM/DCDP 

VEHS 

DIRECT 

15 

DASD 

ETAM/VEHS 

OVEH 

INPUT 

16 

DASD 

ETAM/DVEH 

TASKS 

DIRECT 

22 

DASD 

ETAM/TASKS 

DTASK 

INPUT 

23 

DASD 

ETAM/DTASK 

Discussion 

This  program  has  as  its  function  the  printing  of  all  files  of  the  ETAM  system 
called  "Project  Files".  Program  PI  has  been  designed  to  allow  the  interactive 
selection  of  any  or  all  of  the  files  to  be  printed. 

Listing  of  EXECUTIVE  =RUNP1 


P RUNP1  EXEC 


STYPE  OFF 

GCOMMENT  INTERACTIVE  PROJECT  FILE  PRINT  PPOGRAM. 
SCOMMENT  SINGLE  ENTRY  PARM  REQUIRED  - PROJECT  NAME. 

DEVICE  WILL  PROMPT  FOR  OUTPUT  DEVICE 
ROOTO  -ST PI 


1 


SCOMMENT  EXEC 
GIF  SINDEX  EO 
EXEC  NONAME  RUN PI 
-STP1  SALPMA3  = SI 
EXEC  IFNAME 
EXEC  JCL 
EXEC  JCL2 

FILEDEF  SYSPRINT  PTR 
LOAD  PI  (CLEAR  LIBE) 
START  (BRIEF) 

PI  LEDE  e ::  CLEAR 
SEXIT 


RE  FA  LR 
PLIL  IB 


121  BL  121 
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Program  PI  Specific  User  Instructions 

This  program  processes  only  those  files  associated  with  a unique  ETAM  project 
within  a single  run.  Accordingly,  the  name  of  the  project  must  be  provided 
by  the  User  when  invoking  the  RUNP1  executive.  On  the  sample  runs  to  follow, 
this  is  demonstrated  using  the  ETAM  project  name  "PN123". 

Upon  entry  and  after  each  processing  conmand  has  been  completed,  the  User 
will  be  prompted  for  entry  as  follows: 

**  ENTER  FILETYPE  FOR  OUTPUT,  MENU,  OR  QUIT  ** 

A "MENU"  selection  will  cause  the  printing  of  a list  of  filetypes  and  titles 
for  output.  Following  the  presentation,  a return  is  made  to  the  prompt 
message  as  above.  The  "QUIT"  option  is  self-explanatory.  If  a valid  file- 
type  is  entered,  the  system  will  then  prompt  for  the  desired  output  device, 
as  follows: 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  QUIT? 

ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 

The  response  options  are  self-explanatory  to  this  prompt. 

If,  instead  of  a specific  filetype,  a response  of  "ALL"  is  made  to  the  first 
general  prompt,  above,  all  filetypes  associated  with  the  current  project 
will  be  output.  Following  the  "ALL"  selection,  the  device  selected  for 
output  will  be  used  for  all  output.  After  processing  an  "ALL"  option,  return 
is  made  to  the  first  general  prompt  as  usual. 


Program  PI  Error  Messages 

If  the  response  to  a specific  prompt  is  not  decodeable,  the  following  error 
message  is  output: 

**  LAST  ENTRY  UNRECOGNIZED  - TRY  AGAIN  ** 

The  above  message  will  be  followed  by  a return  to  the  general  prompt 
message  that  preceeded  it. 

In  response  to  the  prompt  for  output  device,  an  unrecognized  input  will 
result  in  the  following: 

UNABLE  TO  DETERMINE  ENTRY  TYPE  - TRY  AGAIN 

(followed  by  a return  to  allow  another  device  selection) 
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In  the  current  ETAM  implementation,  the  following  filetypes  have  not  been 
fully  specified: 

Filetype  Project  File 


EXC  Course  Extract  Data  Base 

EXJ  Tasks  (Jobtasks)  Extract  Data  Base 

EXV  Vehicle  Extract  Data  Base 

CMR  Cost  Model  Results 

TRER  Tree  Results 

FINR  Financial  Results 


An  attempt  to  print  one  of  these  filetypes  will  result  in  the  following 
message: 


**  FILETYPE  xxxx  IS  NOT  YET  SERVICEABLE,  TRY  AGAIN  ** 
where  the  name  of  the  filetype  of  concern  replaces  "xxxx"  in  the  message. 


Program  PI  Sample  Run  Output 

The  following  illustrates  a run  of  Program  PI  servicing  the  Project  Files 
of  Project  "PN123". 

RUNP1  PN12  3 

PROJECT  NAMED  PN123  ALREADY  EXISTS, 

IS  THIS  CORRECT?  (RESPOND  YES  OR  QUIT) 

YES 

5$$$$ 

GENERAL-PURPOSE  PROJECT  FILE  PRINT 
PROGRAM  IS  NOV/  STARTING... 

ENTER  FILETYPE  FOR  OUTPUT,  MENU,  OR  QUIT 
_MENU 

PROJECT  FILETYPES  FOR  OUTPUT  ARE  : 

ID  - PROJECT  DESCRIPTION 

EXD  - EXTRACT  DEFAULTS 

BPT  - BENEFIT  PATTERN 

RKP  - RISK  PROFILE 

RRPJ  - RISK  REDUCTION  PROJECTS 

RRPK  - RISK  REDUCTION  PACKAGES 

VQAL  - VARIABLES  QUALIFICATION 

VARF  - VARIABLE  REFERENCES 

SCEN  - SCENARIOS 

ALTP  - ALTERNATE  PROJECTS 

REC  - COURSES  ROE  SEARCH  ARGUMENTS 

REV  - VEHICLES  ROE  SEARCH  ARGUMENTS 

REJ  - TASKS  ROE  SEARCH  ARGUMENTS 

RESU  - ROE  TOTAL  SEARCH  RESULTS 

REE  - ROE  SEARCH  RESULTS 
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EXC  - EXTRACT  DB  - COURSES 
EXJ  - EXTRACT  DB  - JOBTASKS 
EXV  - EXTRACT  DB  - VEHICLES 
CMR  - COST  MODEL  RESULTS 
TRER  - TREE  RESULTS 
FINR  - FINANCIAL  RESULTS 

ENTER  FILETYPE  FOR  OUTPUT,  MENU,  OR  QUIT  }{}{ 

_REC 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  QUIT 
ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 
BOTH 


PAGE  NUMBER  : 1 

LISTING  OF  PROJECT  FILL  CONTENT S 

PN 123  / REC  - COURSES  ROE  SEARCH  ARGUMENTS 

30  OPERATIONS 

31  MAINTENANCE 

40  EQUIPMENT  C OBJECTS  USED:  REAL 
64  PROCEDURE  FOLLOWING 
-80  ORIENTATION,  FAMILIARIZATION 

-81  TASK  NOMENCLATURE,  IDENTS,  LOCATIONS,  FACTS,  RULES 

82  TASK  FORMATS  AT  CONCEPTUAL  LEVEL 

83  PROCEDURES  AT  VERBAL  LEVEL  ONLY 

84  TASK  COMPONENTS  WITH  GUIDANCE 

85  ENTIRE  JOB-TASK  PROCEDURALLY  AT  BARELY  ACCEPTABLE  MASTERY 

80  HIGHLY  PROFICIENT  IN  WORK  CONTEXT 

A TOTAL  OF  11  RECORDS  ARE  PRESENT 
WITHIN  THIS  FILE 

ENTER  FILETYPE  FOR  OUTPUT,  MENU,  OR  QUIT  ”}{ 

_QUIT 

PROJECT-FILL  PRINT  PROGRAM  IS  NOW  TERMINATING 
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PROGRAM  NAME  : P2 
ENTRY  POINT  : P2 

RUN  EXECUTIVES(S)  : RUNP2,  NONAME,  IFNAME,  JCL,  JCL2 

USER  OUTPUT  VIA  : Terminal  Only 

USER  PROMPTING  : Internal  Program  Only 

FUNCTION  : Interactively  Modify/Examine  the  Contents  of  the  ROE 
Search  Argument  Files  REC,  REV,  and  REJ 
(File  Reference  Numbers  27,  28,  and  29) 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F, 

80, 

80 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

F, 

80, 

80 

SARG 

OUTPUT 

30 

DASD 

Projectname/SARG 

F, 

240 

, 240 

ID 

INPUT 

26 

DASD 

Projectname/ID 

F, 

80, 

80 

REC 

INOUT/ 

OUTPUT 

27 

DASD 

Projectname/REC 

F, 

80, 

80 

REV 

INOUT/ 

OUTPUT 

28 

DASD 

Projectname/REV 

F, 

80, 

80 

REJ 

INOUT/ 

29 

DASD 

Projectname/REJ 

F, 

80, 

80 

OUTPUT 


Discussion 

This  program  serves  a twofold  purpose: 

For  the  User  : This  program  allows  interactive  printing,  adding, 

and  deleting  of  descriptors  to  be  used  as  search 
arguments  in  future  Range-of-Effects  (ROE)  searches. 
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For  the  System  : Program  P2  creates  a search  argument  file 

(File  Number  30)  using  the  descriptors  supplied 
via  Project  Files  REC,  REV,  and  REJ.  The  ROE 
Search  Program  (Program  P3)  cannot  be  run 
successfully  until  this  file  has  been  created. 

NOTE  - This  implies  that  Program  P2  must  be 
run  a£  least  one  time  prior  to  running 
Program  P3. 


Listing  of  EXECUTIVE  = RUNP2 


f.T  YPF  OFF 

SCOMMENT  INTERACTIVE  EDIT  OF  SEARCH  ART-l/MENT?  FROM  PROJECT  FILES 
SCOMMENT  REC,  REV,  REJ  TO  THE  SEARCH  ARC-UMENT  PF  r SARP. 

SCOMMENT  SIMPLE  ENTRY  PAPM  REOUIPED  IS  PROJECT  NAf'E  . 

C COMMENT  OUTPUT  ONLY  TO  TERMINAL  IN  THIS  SEOUENCE. 

SIF  & INDEX  EO  1 SPOTO  -STP1 
EXEC  NONAME  PUNP2 
-STP1  SALPHA3  = Cl 
EXEC  IFNAME 
EXEC  JCL 
EXEC  JCL 2 

LOAD  P2  (CLEAR  LI13E)  PLILID 
START  (BRIEF) 

FILEDEF  ” CLEAR 
SEXIT 


Program  P3  Specific  User  Instructions 

Program  P2  processes  only  those  files  associated  with  a unique  ETAM  project 
during  a single  run.  It  is  mandatory  that  the  name  of  the  specific  project 
be  provided  by  the  User  when  invoking  the  RUNP2  executive.  On  the  sample 
runs  to  follow,  this  is  illustrated  using  the  ETAM  project  name  "PN123". 

This  program  has  been  designed  to  work  in  an  interactive  manner;  all  User 
input/output  is  through  the  online  terminal. 

After  program  initialization,  the  following  message  will  appear  at  the 
terminal : 


**  MAKE  INITIAL  ENTRY  SELECT 
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The  anticipated  response  to  this  prompt  is  the  word  "SELECT"  followed 
by  one  of  the  options  "COURSES",  "VEHICLES",  or  "TASKS".  This  allows 
the  User  to  select  one  of  the  three  ETAM  search  entities  for  consideration. 
An  illegal  entry  at  this  point  (usually  mispelling)  will  be  flagged  by  the 
message: 


**  SELECTION  ERROR  - TRY  AGAIN 
(followed  by  the  initial  entry  prompt) 

A successful  "SELECT"  entry  results  in  the  following  output: 

**  XXXXXXXX  SEARCH  DESCRIPTORS  SELECTED 

**  YY  DESCRIPTORS  NOW  SELECTED 

where  "XXXXXXXX"  will  indicate  the  entity  type  selected,  and  "YY"  indicates 
the  total  number  of  descriptor  search  arguments  presently  selected  for  this 
Project.  The  above  is  then  followed  by: 

**  MAKE  NEXT  ACTION  REQUEST 

This  message  is  referred  to  in  the  following  as  the  "general  prompt".  It 
follows  all  User  entry  to  allow  further  entry.  The  User  may,  at  this  point, 
make  one  of  the  following  entries: 

SELECT  (followed  by)  COURSES  or  VEHICLES  or  TASKS 

ADD  number 

DELETE  number 

PRINT 

FILE 

QUIT 

The  "SELECT"  entry  functions  in  the  same  manner  as  discussed  previously. 

The  "ADD"  and  "DELETE"  entries  allow  the  User  to  modify  the  contents  of  the 
REC,  REV,  and  REU  files.  The  "number"  fields  represent  the  descriptor  numbers 
to  be  added  or  deleted.  Once  an  entity  type  (Courses,  Vehicles,  or  Tasks) 
has  been  selected,  the  "ADD",  "DELETE",  and  "PRINT"  verbs  apply  only  to 
descriptors  of  that  entity  type  until  a new  type  is  selected. 

Selection  of  the  "QUIT"  option  terminates  Program  P2  without  permanent 
modification  to  any  of  the  search  designator  (argument)  files. 

The  "FILE"  option  terminates  Program  P2;  all  files  to  be  modified  are  altered 
permanently  in  accordance  with  the  Interactive  entry  commands  processed  during 
Program  P2  operation. 
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Program  P2  Error  Messages 

During  Program  P2  initialization,  the  contents  of  the  REC,  REV,  and  REJ 
Project  Files  are  input.  These  files  were  loaded  previously  by  a run  of 
Program  PI 7.  PI 7 merely  loaded  the  files  with  no  error  diagnosis  on  the 
contents.  Program  P2  accomplishes  error  detection  during  their  load. 

In  the  event  of  an  invalid  descriptor,  the  descriptor  is  removed  from  the 
file  of  its  origin  and  the  following  message  results: 

**  ILLEGAL  DESCRIPTOR  - XXXX  - DETECTED  IN  YYYYYYYY  FILE  ** 
DESCRIPTOR  WILL  BE  IGNORED  AND  REMOVED  FROM  THE  YYYYYYYY  FILE 


In  the  above  message,  "XXXX"  will  indicate  the  invalid  descriptor  number 
and  "YYYYYYYY"  the  entity  type  (Course,  Vehicle,  or  Tasks). 

The  following  general  purpose  message  results  for  any  entry  error  following 
the  general  prompt  message: 

**  UNIDENTIFIED  ACTION  REQUEST  - TRY  AGAIN 

An  illegal  descriptor  number  will  be  signified  by: 

**  KEYBOARD  ENTRY  - XXXX  - CONTAINED  ILLEGAL  NUMERIC  CHARACTER 

Selection  of  a descriptor  number  that  does  not  apply  to  the  selected  entity 
type  results  in: 

**  XXXX  IS  NOT  A LEGAL  DESCRIPTOR  FOR  YYYYYYYY  TYPE 

The  following  self-explanatory  message  results  from  an  illegal  deletion 
request: 


**  DESIGNATOR  NUMBER  XXXX  HAS  NOT  BEEN  SELECTED; 

IT  CANNOT  BE  DELETED 

A general-purpose  error  message  can  result  during  Program  P2  operation: 

**  ERROR  NUMBER  XX  HAS  OCCURED  ** 

(followed  by  a general  data-output  line) 

In  the  above,  the  error  number  "XX"  has  the  following  meaning: 

01,  - Error  occured  during  "PRINT"  option  processing. 

02 

Direct  access  indexing  into  the  Master  Descriptor 
Index  file  (File  Number  3)  failed.  The  second  error 
line  presents  the  indices  of  concern. 
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% 

03  - While  processing  an  "ADD"  entry,  an  indexing  problem 

arose  into  the  same  file  as  error  number  1,  above. 

04  - This  is  an  internal  program  indexing  problem  encountered 

while  attempting  rewrite  of  the  descriptor  search 
argument  files  ("FILE"  option  processing). 


Program  P2  Sample  Run  Output 

The  following  sample  illustrates  a complete  run  of  Program  P2.  Only  the 
"COURSES"  type  descriptors  are  referenced  in  this  run. 


RUNP2  PM  1 2 3 

PROJECT  NAMED  PN123  ALREADY  EXISTS, 

IS  THIS  CORRECT?  (RESPOND  YES  OR  QUIT) 

YES 

$$$ 

SEARCH  DESCRIPTOR  EDITOR  RUN  FOR  PROJECT  : PN123 
3-D  PROCEDURAL  TRAINER 


MAKE  INITIAL  ENTRY  SELECT 
_SELECT  COURSES 

5:::  COURSES  SEARCH  DESCRIPTORS  SELECTED 

11  DESCRIPTORS  NOW  SELECTED 

::::  MAKE  NEXT  ACTION  REQUEST 
_PR INT 

GROSS  JOB  CATEGORIES 

30  OPERATIONS 

31  MAINTENANCE 

OBJECTIVE  TASK  VARIABLES  AS  MANIFEST  IN  THE  TRAINING 
40  EQUIPMENT  6 OBJECTS  USED:  REAL 

::::  TASK  FUNCTIONS  DOMINANT  IN  TRAINING 
64  PROCEDURE  FOLLOWING 

;s::  STAGE  OF  LEARNING 

-80  ORIENTATION,  FAMILIARIZATION 

-81  TASK  NOMENCLATURE,  IDENTS,  LOCATIONS,  FACTS,  RULES 

83  PROCEDURES  AT  VERBAL  LEVEL  ONLY 

84  TASK  COMPONENT S WITH  GUIDANCE 

85  ENTIRE  JOB-TASK  PROCEDURALLY  AT  BARELY  ACCEPTABLE  MASTERY 
80  HIGHLY  PROFICIENT  IN  WORK  CONTEXT 

87  UNUSUAL  TASK  CONDITIONS 


D .2-1 1 


TAEG  REPORT  NO.  40 


MAKE  NEXT  ACTION  REQUEST 
DELETE  87 

COURSES  DESIGNATOR  NUMBER  87  HAS  BEEN  DELETED 

MAKE  NEXT  ACTION  REQUEST 
_ADD  82 

ADDED  DESIGNATOR  = 82  TASK  FORMATS  AT  CONCEPTUAL  LEVEL 
::5!  TOTAL  DESIGNATORS  NOW  SELECTED  : 11 

MAKE  NEXT  ACTION  REQUEST 
_F  I LE 

};5{  MODIFIED  COURSES  DESIGNATORS  HAVE  BEEN  SAVED 
SEARCH  DESIGNATOR  EDITOR  NOW  TERMINATING 
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PROGRAM  NAME  : P3 
ENTRY  POINT  : P3 

RUN  EXECUTIVES (S)  : RUNP3,  NONAME,  IFNAME,  JCL,  JCL2 
USER  OUTPUT  VIA  : Terminal  Only 
USER  PROMPTING  : Not  Required 

FUNCTION  : Range-Of-Effects  Search  Module 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/File type 

Format 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

F,  80,  80 

SARG 

INPUT 

30 

DASD 

Projectname/SARG 

F,  240,  240 

RESU 

OUTPUT 

31 

DASD 

Projectname/RESU 

FB,  16,  800 

ID 

INPUT 

26 

DASD 

Projectname/ID 

F,  80,  80 

COURSE 

DIRECT 

7 

DASD 

ETAM/COURSE 

F,  80,  80 

DC  IN 

INPUT 

8 

DASD 

ETAM/DCIN 

F,  760,  760 

VEHS 

DIRECT 

15 

DASD 

ETAM/VEHS 

F,  80,  80 

DVEH 

INPUT 

16 

DASD 

ETAM/DVEH 

F,  750,  750 

TASKS 

DIRECT 

22 

DASD 

ETAM/TASKS 

F,  80,  80 

DTASK 

INPUT 

23 

DASD 

ETAM/DTASK 

F,  1500,  1500 

DESC 

INPUT 

6 

DASD 

ETAM/DESC 

F,  213,  213 

VDESC 

INPUT 

12 

DASD 

ETAM/VDESC 

F,  213,  213 

TDESC 

INPUT 

19 

DASD 

ETAM/TDESC 

F,  213,  213 
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Discussion 

The  Range-of-Effects  search  process  is  accomplished  within  Program  P3. 

The  descriptor  search  arguments  are  Input  via  File  Number  30.  As  mentioned 
In  the  section  covering  Program  P2,  File  Number  30  Is  created  only  through 
a successful  execution  of  Program  P2. 

Only  synopsis  type  output  is  directed  to  the  online  terminal  as  a result 
of  executing  Program  P3.  The  search  results  output  is  passed  via  filetype 
Program  P3.  The  search  results  output  is  passed  via  filetype  RESU 
(File  Number  31)  to  the  Programs  P5A,  P5B,  and  P5C  for  output  editing  and 
processing. 


Listing  of  EXECUTIVE  = RUNP3 


GTYPE  OFF 

CCOMMENT  RANGE -OF-EFFECT  (ROE)  SEARCH  EXECUTION. 

C COMMENT  SINGLE  ENTRY  PARM  REOIJIRED  IS  PROJECT  NAME. 
CCOMMENT  OUTPUT  ONLY  TO  TERMINAL  IN  THIS  SEOUENCE. 
GIF  GINDEX  EO  1 SGOTO  -STP1 
EXEC  NONAME  RUNP3 
-STP 1 GALPHA3  = G1 
EXEC  IFNAME 
EXEC  JCL 
EXEC  JCL2 

LOAD  P3  (CLEAR  LIBE)  PLILIB 
START  (BRIEF) 

FILEDEF  ” CLEAR 
GEXIT 


Program  P3  Specific  User  Instructions 

The  Project  Files  to  be  referenced  by  Program  P3  in  a single  unique  run 
can  only  be  the  files  associated  with  a single  ETAM  project.  The  name  of 
the  desired  project  must  be  supplied  by  the  User  when  invoking  the  RUNP3 
executive.  On  the  sample  terminal  outputs  shown  below,  the  project  being 
referenced  is  "PN123". 

Only  the  project  name  must  be  supplied  by  the  User  when  initiating 
a Program  P3  run.  As  mentioned  above.  Program  P3  cannot  be  run  until 
Program  P2  has  been  successfully  run  at  least  one  time. 
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Program  P3  Error  Messages 

The  following  general  error  text  can  be  output  from  Program  P3: 
**  ERROR  NUMBER  XX  HAS  OCCURED  ** 


(followed  by  a general  data-output  line) 


where  the  error  number  "XX"  in  the  above  message  has  the  following 
significance.  All  are  internal  program  indexing  errors. 


01  - Indexing  error  in  handling  categories  within  the 

Master  Descriptor  Index  file  (File  Number  3). 

02  - Total  number  of  input  search  descriptors  exceeds  99. 

Note  that  no  descriptor  is  greater  than  a two-digit 
number. 

03  - More  than  15  categories  of  descriptors  found  for 

a single  entity  within  the  Master  Descriptor  Index. 

04  - Attempted  to  access  a record  in  the  Abbreviated  Course 

file  (File  Number  7)  beyond  the  bounds  of  the  file. 

05  - Same  error  type  as  type  04,  except  for  the  Abbreviated 

Vehicle  file  (File  Number  15). 

06  - Same  error  type  as  type  04,  except  for  the  Abbreviated 

Tasks  file  (File  Number  22). 


Program  P3  Sample  Run  Output 

The  following  reflects  a complete  run  of  Program  P3  against  the  sample 
project  "PN123" . 


RUNP3  PN123 

PROJLCT  NAMED  PN  123  ALREADY  EXISTS, 

IS  THIS  CORRECT?  (RESPOND  YES  OR  QUIT) 

YES 

RANGE -OF-EFFECTS  (ROE)  SEARCH  PROGRAM  IS  STARTING 

RANGE-OF-EFFECTS  SEARCH  FOR  PROJECT  : PN123 
3-D  PROCEDURAL  TRAINER 

::::  NOW  PROCESSING  COURSES  SEARCH  - 11  DESCRIPTORS  SCLECTED 

TOTAL  NUMBER  DESCRIPTOR  RECORDS  EXAMINED  : 122 

TOTAL  RECORDS  SELECTED  WITH  MATCHING  DATA  : 37 

TOTAL  RECORDS  SELECTED  WITHOUT  ABBREVIATED  DATA  : 24 

ACCUMULATED  SEARCH  OUTPUT  RECORDS,  THUS  FAR  : bl 
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NOW  PROCESSING  VEHICLES  SEARCH  - 0 DESCRIPTORS  SCLECTED 

NO  SEARCH  DESCRIPTORS  SPECIFIED  FOR  VEHICLES  TYPE  DATA  - SEARCH  IS  BYPASSED 
NOW  PROCESSING  TASKS  SEARCH  - 0 DESCRIPTORS  SELECTED 

NO  SEARCH  DESCRIPTORS  SPECIFIED  FOR  TASKS  TYPE  DATA  - SEARCH  IS  BYPASSED 

JESIGNATOR  SEARCH  PROGRAM  IS  TERMINATING 

TOTAL  ACCUMULATED  SEARCH  OUTPUT  RECORDS  : 01 
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PROGRAM  NAME  : P5A 

ENTRY  POINT  : IHECMS  (Execution  Parameter  Supplied  by  Executive 
Up  on  Entry) 

RUN  EXECUTIVES(S)  : RUNP5A,  NONAME,  IFNAME,  DEVICE,  JCL,  JCL2 
USER  OUTPUT  VIA  : Terminal,  Offline  Printer,  or  Both 
USER  PROMPTING  : External  Executive  - Output  Device  Select 
FUNCTION  : Print  Results  of  Range-Of-Effects  Search 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Fi 1 ename/Fi 1 e type 

Format 

ID 

INPUT 

26 

DASD 

Projectname/ID 

F,  80,  80 

RESU 

INPUT 

31 

DASD 

Projectname/RESU 

FB,  16,  800 

MREF 

INPUT 

. 1 

DASD 

ETAM/MREF 

F,  80,  80 

COURSE 

DIRECT 

7 

DASD 

ETAM/COURSE 

F,  80,  80 

DCIN 

INPUT 

8 

DASD 

ETAM/DCIN 

F,  760,  760 

DCDP 

INPUT 

9 

DASD 

ETAM/DCDP 

F,  1200,  1200 

VEHS 

DIRECT 

15 

DASD 

ETAM/VEHS 

F,  80,  80 

DVEH 

INPUT 

16 

DASD 

ETAM/DVEH 

F,  750,  750 

TASKS 

DIRECT 

22 

DASD 

ETAM/TASKS 

F,  80,  80 

DTASK 

INPUT 

23 

DASD 

ETAM/DTASK 

F,  1500,  1500 

SYS PR I NT 

OUTPUT 

N/A  : THIS 

IS  THE  OFFLINE  PRINTER 

FA,  121,  121 

Discussion 

The  direct  results  of  the  Range-of-Effects  search  (Program  P3)  are  printed  by 
this  program. 
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Listing  of  EXECUTIVE  = RUNP5A 


RTYPE  OFF 

f.COMMENT  ROE  PAW  SEARCH  RESULTS  PPINTED  HEREIN. 

C COMMENT  SINGLE  ENTRy  PARM  REOUIRED  - PROJECT  NAME 
GCOMMENT  EXEC  = DEVICE  WILL  PROMPT  FOR  OUTPUT  DEVICE 
RIF  C INDEX  EO  1 RGOTO  -STP1 
EXEC  NONAME  RUNP5A 
-STP1  EALPHA3  = G1 
EXEC  IFNAME 
£ SPACE 
EXEC  DEVICE 
& SPACE 
EXEC  JCL 
EXEC  JCL2 

FILEDEP  SYSPRINT  PTR  RE  FA  LR  121  BL  121 
LOAD  PSA  (CLEAR  LIBE)  PL1LIB 
START  IHECMS  RALPHA1  (BRIEF) 

FILEDEF  CLEAR 
SEX  IT 


Program  P5A  Specific  User  Instructions 

A single  run  of  Program  P5A  processes  only  those  Project  Files  associated 
with  a single  unique  project.  The  name  of  the  project  of  concern  must  be 
provided  by  the  User  when  invoking  the  RUNP5A  executive.  In  the  sample 
output  provided  below,  this  is  illustrated  by  reference  to  project  "PN123". 

The  Range-of-Effects  search  program  (Program  P3)  provides  no  direct  output, 
only  summary  information.  This  program  (Program  P5A)  produces  an  itemized 
listing  of  the  search  results  using  the  RESU  (File  Number  31)  as  input. 

The  output  records  are  numbered.  These  numbers  will  provide  reference  for 
any  editing  activity  that  might  follow  by  running  Program  P5B. 
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Program  P5A  Error  Messages 
None  generated. 
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Program  P5A  Sample  Run  Output 

The  following  reflects  a complete  run  of  Program  P5A,  using  the  sample 
project  name  "PN123". 


RUNP5A  PN123 

PROJECT  NAMED  PN123  ALREADY  EXISTS, 

IS  THIS  CORRECT?  CRESPOND  YES  OR  QUIT) 

YES 


OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  OMIT? 

ENTER  TERM,  PRTP.,  UOTH,  OR  QUIT 

UOTH 

^execution: 


::::  INITIAL  SEARCH  RESULTS  FOR  PROJECT  -PN123 
3-D  PROCEDURAL  TRAINER 


PAGE  NUMBER  : 1 

RANGE-OF-EFFECTS  RESULTS  FOR  : COURSES 


1 

Ai*i2  0000 

NOTE 

- NO  MATCHING  NITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

2 

A1020093 

NOTE 

- NO  MATCHING  NITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

3 

A1020095 

NOTE 

- NO  MATCHING  NITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

4 

A1930050 

2213 

INERT  NAV  PR  INC 

5 

A2420010 

0529 

IS  A 

6 

A4  120010 

0070 

EA-A 

7 

A4  120010 

b2i>  7 

EA  A 

S 

A431001 1 

1035 

EOD  BASIC  NAVY 

9 

A4310014 

1030 

EOD  REFR  NAVY 

10 

A4330019 

2040 

MASTER  DIVQUAL 

11 

A4  33002  5 

20J2 

DIVER  FIRST 

12 

A4910014 

204G 

RADIUM  P.EMOV  OPS 

13 

A5510019 

0133 

CAR  HAND  BAS 

14 

A5510027 

3931 

UNREP  MECH/HYD 

15 

A5510068 

0134 

FORK  LIFT  OPER 

lb 

A 5 o 0 0 0 1 L 

0053 

CTO  A 

17 

AO510020 

5399 

1200  PSI  BT 

10 

Ab 5 2 0050 

5224 

OX  GENR  OL1O0P 

t 

19 

Ab 5 2006 0 

463E 

SOLAR  GAS  TURBIN 
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20 

AG70001  1 

3078  < 

WATCH 

REPAIR 

21 

A 7 010027 

3 37  M 

WELD/HPRES  PIPE 

22 

A72000 13 

40GZ  i 

UT-J 

FOR 

THIS 

CIN 

23 

B303005 1 

MOTE 

- NO 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

24 

C 003722 

2887 

TA4.IF 

FAM  PILOTS 

25 

C 003722 

9007 

TA4JF 

FAM  PILOTS 

20 

C 003722 

9009 

TA4.JF 

FAM  PILOTS 

27 

C 003722 

9010 

TA4>)F 

FAM  PILOTS 

28 

C 003722 

9738 

TA4JF 

FAM  PILOTS 

29 

C 2C3352 

2576 

UH IN  A/C  FAM/P/ 

30 

Cl  00 38 3 4 

7529 

AAS18 

INT  MAI 

31 

Cl  023793 

7914 

A7AU  ATT  HEADING 

32 

C1023793 

7915 

A7AB  ATT  HEADING 

33 

C 12  1301 1 

34GL 

AWM2  3 

RADIO  FREO 

34 

C 12 130 1 1 

544L 

AWM23 

RADIO  FREQ 

35 

C6003472 

340C 

E2C  WEA  SYS  FAM 

30 

CO02353O 

3411) 

54H6077  PROP  INT 

37 

C64O3103 

7305 

CVA/CV  ALW  SUPV 

38 

D 2C0011 

MOTE 

- NO 

MATCHING  M ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

39 

L 2A1001 

MOTE 

- NO 

MATCHING  M ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

40 

E 2A1301 

MOTE 

- no 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

41 

E 2A1803 

MOTE 

- no 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

cir: 

42 

E 2C0901 

MOTE 

- NO 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

43 

E 2D001G 

MOTE 

- NO 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

44 

E 200075 

NOTE 

- NO 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

CIN 

45 

E 00102  10 

MOTE 

- NO 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

40 

C0401G41 

MOTE 

- NO 

MATCHING  M ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

47 

F7000010 

MOTE 

- NO 

MATCHING  N ITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

48 

M 2E3710 

MOTE 

- NO 

MATCHING  NITRAS 

DATA 

AVAILABLE 

FOR 

TItlS 

CIN 

49 

J 130004  5 

MOTE 

- NO 

MATCHING  NITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

50 

>1221035  7 

538Q 

MULTI- 

-THREAT  TNG 

51 

>12330203 

2037 

ADV  EW  OP'S  CRSE 

52 

>12430974 

2181 

IPC 

53 

>18800433 

MOTE 

- MO 

MATCHING  NITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

54 

K2  330000 

205  Y 

SUB  EW  OP-ADV 

55 

L 1 0 1 0 0 2 4 

MOTE 

- NO 

MATCHING  NITRAS 

DATA 

AVAILABLE 

FOR 

THIS 

C IN 

PAGE  NUMBER  : 2 

RANGE-OF-EFFECTS  RESULTS  FOR  : COURSES 


50  LOU  10050 

57  M198100E 

58  N70 10320 

59  Q 2C0015 

00  83000010 

01  83000012 


NOTE  - MO 
NOTE  - MO 
MOTE  - NO 
MOTE  - NO 
NOTE  - UO 
MOTE  - NO 


MATCHING  M 
MATCHING  N 
MATCHING  M 
MATCHING  N 
MATCHING  N 
MATCHING  M 


ITRAS  DATA 
ITRAS  DATA 
ITRAS  DATA 
ITRAS  DATA 
ITRAS  DATA 
ITRAS  DATA 


AVAILABLE 

AVAILABLE 

AVAILABLE 

AVAILABLE 

AVAILABLE 

AVAILABLE 


FOR 

TH 

IS 

c 

IN 

FOR 

TH 

IS 

c 

IM 

FOR 

TH 

IS 

c 

IN 

FOR 

TH 

IS 

c 

IM 

FOR 

TH 

IS 

c 

IN 

FOR 

TH 

IS 

c 

IN 

1 

\ 
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::::  RESULTS  FILL  NOW  AT  END-OF-FILE  :::: 


TOTAL  NUMliER  COURSE  RECORDS  PROCESSED  : 01 

TOTAL  NUMBER  VEHICLE  RECORDS  PROCESSED  : 0 

TOTAL  NUMBER  JOBTASK  RECORDS  PROCESSED  : 0 

TOTAL  NUMBER  ROE  RESULT  RECORDS  READ  01 

RECORDS  WITHOUT  MATCHING  ABBREVIATED  DATA  : 24 

TOTAL  NUMBER  DIRECTORY  SEARCH  FAILURES  : 0 
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PROGRAM  NAME  : P5B 
ENTRY  POINT  : 

RUN  EXECUTIVES (S)  : RUNP5B,  NONAME,  IFNAME,  JCL,  JCL2 
USER  OUTPUT  VIA  : Terminal  Only 
USER  PROMPTING  : Internal  Program  Only 

FUNCTION  : Interactive  Edit  of  Range-Of-Effects  (ROE)  Results 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
F i 1 ename/F i 1 etype 

Format 

ID 

INPUT 

26 

DASD 

Projectname/ID 

F,  80,  80 

REE 

OUTPUT 

32 

DASD 

Projectname/REE 

FB,  16,  800 

RESU 

INPUT/ 

31 

DASD 

Projectname/RESU 

FB,  16,  800 

OUTPUT 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

COURSE 

DIRECT 

7 

DASD 

ETAM/COURSE 

F,  80,  80 

DCIN 

INPUT 

8 

DASD 

ETAM/DCIN 

F,  760,  760 

DCDP 

INPUT 

9 

DASD 

ETAM/DCDP 

F,  1200,  1200 

TASKS 

DIRECT 

22 

DASD 

ETAM/TASKS 

F,  80,  80 

DTASK 

INPUT 

23 

DASD 

ETAM/DTASK 

F,  1500,  1500 

VEHS 

DIRECT 

15 

DASD 

ETAM/VEHS 

F,  80,  80 

DVEH 

INPUT 

16 

DASD 

ETAM/DVEH 

F,  750,  750 

Discussion 

This  program  allows  the  User  to  peruse  and  edit  the  results  of  a previous 
Range-of-Effects  search.  In  this  regard: 

- Program  P3  is  the  search  routine.  This  module  creates  the 
un-edited  results  file  RESU  (File  Number  31). 

- Program  P5A  prints  the  RESU  file  and  numbers  the  records 
therein.  These  record  numbers  are  required  for  reference 
in  the  operation  of  Program  P5B. 
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Program  P5B  modifies  the  search  results  RESU  as  desired  by  the  User. 

A modified  file,  containing  only  original  search  results  and  added  records 
is  created  by  this  program;  this  is  the  REE  file  (File  Number  32). 


Listing  of  EXECUTIVE  = RUNP5B 


GTYPE  OFF 

SCOMMENT  INTERACTIVE  EDIT  OF  THE  ROE  SEARCH  RESULTS. 
G COMMENT  SINr-LE  ENTRY  PARM  REOUIRED  IS  PROJECT  NAME. 
(“.COMMENT  OUTPUT  ONLY  TO  TERMINAL  IN  THIS  SEOUENCE. 
GIF  G INDEX  EO  1 ROOTO  -STP1 
EXEC  NONAME  RIJNP5B 
-STP 1 R ALPHA 3 = R1 
EXEC  IFNAME 
EXEC  JCL 
EXEC  JCL2 

LOAD  P5B  (CLEAR  LIBE)  PLILIB 
START  (BRIEF) 

FILEOEF  ” CLEAR 
GEXIT 


Program  P5B  Specific  User  Instructions 

Program  P5B  processes  only  those  files  associated  with  a unique  ETAM  project 
during  a single  run.  It  is  mandatory  that  the  name  of  the  Specific  project 
be  provided  by  the  User  when  invoking  the  RUNP5B  executive.  On  the  sample 
runs  to  follow,  this  is  illustrated  using  the  ETAM  project  name  "PN123". 

After  initialization.  Program  P5B  returns  to  the  following  general  prompt 
message: 

**  MAKE  NEXT  ACTION  REQUEST 

This  invitation  for  entry  can  be  followed  by  one  of  the  following  entries: 


DELETE 

nl 

DELETE 

nl  n2 

PRINT 

nl 

PRINT 

nl  n2 

ADDC 

/cin/cdp/ 

ADDV 

/stocknumber/ 

ADDT 

QUIT 

/rate/rank/ jobtask/ 
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The  "DELETE"  entries  allow  deletion  of  one  or  a range  of  entities  in  the 
search  results  file.  The  numbers  "nl",  "n2"  refer  to  the  numbered  records 
in  the  printer  listing  of  the  search  results  as  provided  by  Program  P5A. 

The  "PRINT"  commands  provide  a printed  output  of  the  record(s)  indicated. 

To  add  an  entity  not  currently  in  the  search  results,  the  "ADDC",  "ADDV", 
and  "ADDT"  entries  are  used  for  adding  a Course,  Vehicle,  or  Task, 
respectively.  The  Vehicle  "stocknumber"  must  be  present  for  an  "ADDV"  entry. 
For  an  "ADDC"  entry,  only  the  "cin"  portion  is  required.  When  only  "cin" 
is  provided,  all  Courses  bearing  that  "cin"  designation  will  be  selected 
from  the  Abbreviated  Course  data  base.  For  the  "ADDT"  entry,  only  a single 
field  is  required.  To  match  entries  in  the  Abbreviated  Tasks  data  base, 
all  three  must  be  provided. 

The  "QUIT"  option  rewrites  the  RESU  file  (File  Number  31)  with  all  entries  - 
original,  deleted,  new  (added).  When  printing  the  RESU  file  using  Program 
PI,  the  status  of  each  entry  will  be  indicated.  The  Extract  Results  file 
(File  Number  32)  is  composed  by  Program  P5B.  Only  original  and  added 
entities  are  copied  into  this  file. 


Program  P5B  Error  Messages 

The  following  error  text  results  from  an  illegal  response  to  the  general 
prompt  message: 

**  CANNOT  DECODE  LAST  ENTRY  - TRY  AGAIN 

(followed  by  the  general  prompt  message) 

Sufficient  internal  table  space  has  been  reserved  within  Program  P5B  to 
allow  a total  of  500  new  entity  additions.  Should  an  attempt  be  made  to 
add  more  than  this  total,  the  following  results: 

**  A TOTAL  OF  500  NEW  RECORDS  HAVE  BEEN  ADDED 
ANOTHER  RUN  OF  THIS  ROUTINE  MUST  BE  MADE  TO 
ENTER  FURTHER  ADDITIONS. 

At  this  point,  if  the  "QUIT"  option  is  elected,  the  Program  will  rewrite 
the  results  files  and  terminate.  A second  invocation  of  Program  P5B  will 
then  allow  500  more  additions  to  be  made. 

When  entering  record  numbers  in  conjunction  with  the  "DELETE"  and  "PRINT" 
options,  two  errors  can  occur.  One  is  the  addressing  of  a record  that  is 
beyond  the  limits  of  the  results  file  RESU.  A second  error  can  occur  when 
using  a range-type  entry,  e.g.,  DELETE  nl  n2.  If  nl  is  greater  in  value 
than  n2,  or  either  is  outside  the  bounds  of  the  RESU  file,  the  following 
common  message  results: 

**  RANGE  ERROR  IN  RECORD  NUMBER 
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Program  P5B  Sample  Run  Output 

The  following  terminal  output  sample  illustrates  the  common  entries  in 
the  use  of  Program  P5B. 


RUNP5B  PN123 

PROJECT  NAMED  PN123  ALREADY  EXISTS, 

IS  THIS  CORRECT?  (RESPOND  YES  OR  QUIT) 

YES 

$55$ 

::5J  ROE  SEARCH  RESULTS  EDIT  FOR  PROJECT  PN12  3 5!:: 

3-D  PROCEDURAL  TRAINER 


::::  61  HAVE  BEEN  LOADED  INTO  MEMORY  FOR  EDITING 

::::  MAKE  NEXT  ACTION  REQUEST 
^DELETE  1 3 

DELETED  RECORD  NUMBER  : 1 THRU  3 

::::  MAKE  NEXT  ACTION  REQUEST 
DELETE  23 

DELETED  RECORD  NUMBER  : 23 

MAKE  NEXT  ACTION  REQUEST 
__DELETE  38  49 

DELETED  RECORD  NUMBER  : 38  THRU  49 

::::  MAKE  NEXT  ACTION  REQUEST 
_DELETE  53 

DELETED  RECORD  NUMBER  : 53 

MAKE  NEXT  ACTION  REQUEST 
_DELETE  55 

DELETED  RECORD  NUMBER  : 55 

MAKE  NEXT  ACTION  REQUEST 
_ADDC  /A1010108/ 

THE  FOLLOWING  RECORD(S)  HAS/HAVE  BEEN  ADDED... 

RECNO/C IN/CDP/COURSE  : 6 2/A  1 0 10 108 7 6 54 / WRA-4  CMB  MA 
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::::  MAKE  NEXT  ACTION  REQUEST 
PRINT  1 0 1 


RECNO/C IN/CDP/T ITLE 

1/A1020060/ 

/ 

(NO  MATCHING 

DATA) 

RECNO/CIN/ CD P/TITLE 

2/A1020093/ 

/ 

(NO  MATCHING 

DATA) 

RECNO/C IN/CDP/TITLE 

3/A1020095/ 

/ 

(NO  MATCHING 

DATA) 

RECNO/C IN/CDP/TITLE 

4/A1930050/22 

13/ 

INERT  NAV  PR  INC 

RECNO/C IN/CDP/T ITLE 

5/A24200 10/6529/ 

IS  A 

RECNO/C IN/CDP/TITLE 

6/A4  1200 10/6078/ 

EA-A 

RECNO/C IN/CDP/T ITLE 

7/ A4  120010/6287/ 

EA  A 

...  Output  interrupted  at 

this  point  ... 

RECNO/C IN/CDP/TITLE 

• 

• 

58/N7  0 10320/ 

/ 

(NO  MATCHING 

DATA) 

RECNO/ CIN/CDP/TITLE 

• 

• 

59/Q  2C0015/ 

/ 

(NO  MATCHING 

DATA) 

RECNO/ CIN/CDP/TITLE 

• 

• 

60/83000010/ 

/ 

(NO  MATCHING 

DATA) 

RECNO/C IN/CDP/TITLE 

• 

• 

61/83000012/ 

/ 

(NO  MATCHING 

DATA) 

JS::  MAKE  NEXT  ACTION  REQUEST 
_QUIT 

ROE  SEARCH  RESULTS  EOITOR  IS  TERMINATING 
TOTAL  RECORDS  ADDED  : 1 

TOTAL  RECORDS  IN  PROJECT  EXTRACT  FILE  : 44 
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PROGRAM  NAME  : P5C 

ENTRY  POINT  : IHECMS  (Runtime  Parameter  Supplied  by  Executive 
Upon  Entry) 

RUN  EXECUTIVES (S)  : RUNP5C , NONAME,  IFNAME,  DEVICE,  JCL,  JCL2,  S0RT5C 
USER  OUTPUT  VIA  : Terminal,  Offline  Printer,  or  Both 
USER  PROMPTING  : At  Executive  Level  : Output  Device  Select 

FUNCTION  : Print  Edited  Results  of  Range-of-Effects  (ROE)  Search 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Fi 1 ename/F i 1 ety pe 

Format 

SYSPRINT 

OUTPUT 

N/A  : THIS 

IS  THE  OFFLINE  PRINTER 

F,  121,  121 

REE 

INPUT 

32 

DASD 

Projectname/REE 

FB,  16,  800 

ID 

INPUT 

26 

DASD 

Projectname/ID 

F,  80,  80 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

COURSE 

DIRECT 

7 

DASD 

ETAM/COURSE 

F,  80,  80 

DCIN 

INPUT 

8 

DASD 

ETAM/DCIN 

F,  760,  760 

DCDP 

INPUT 

9 

DASD 

ETAM/DCDP 

F,  1200,  1200 

VEHS 

DIRECT 

15 

DASD 

ETAM/VEHS 

F,  80,  80 

DVEH 

INPUT 

16 

DASD 

ETAM/DVEH 

F,  750,  750 

TASKS 

DIRECT 

22 

DASD 

ETAM/TASKS 

F,  80,  80 

DTASK 

INPUT 

23 

DASD 

ETAM/DTASK 

F,  1500,  1500 

Discussion 

Program  P5C  is  the  last  step  in  the  Range-of-Effects  (ROE)  search  process. 
The  edited  results  of  a search  are  sorted  and  printed.  The  record  sort  is 
executed  at  the  executive  level  in  executive  S0RT5C. 
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Listing  of  EXECUTIVE  = RUNP5C 


GTYPE  OFF 

GCOMMENT  ROE  EXTRACT  SEARCH  RESULTS  PRINTED  HEREIN. 
GCOMMENT  SINGLE  ENTRY  PARM  REOUIRED  - PROJECT  NAME 
G COMMENT  EXEC  = DEVICE  WILL  PROMPT  FOR  OUTPUT  DEVICE 
GIF  G INDEX  EO  1 GGOTO  -STP1 
EXEC  NONAME  RUNP5C 
-STP1  GALPHA3  = Cl 
EXEC  IFNAME 
G SPACE 
EXEC  DEVICE 
G SPACE 
EXEC  JCL 
EXEC  JCL 2 
EXEC  SORT 5 C 

FILEDEF  SYSPRINT  PTR  RE  FA  LP  121  BL  121 
LOADMOD  P5C 

START  IHECMS  GALPHA1  (BRIEF) 

FILEDEF  ::  CLEAR 
GEXIT 


Listing  of  EXECUTIVE  = S0RT5C 


GTYPE  OFF 

GCOMMENT  SORT  SUPPORT  FOR  ROE  RESULTS  FN/REE  PROJECT  FILE 
GCOMMENT  NO  EXPLICIT  ENTRY  PARM5  REOUIRED  FOR  THIS  EXEC. 
GCOMMENT  ALPHA)  GLOBAL  CONTAINS  PROJECT  FILENAME  ON  ENTRY 
GDSN  = . ! ! GALPHA3 
STATE  GDSN  REE  P 

GIF  GINDEX0  NE  0 GGOTO  -STPS1 
ERASE  GDSN  REE  P 
-STPS1  STATE  GALPHA5  REE  P 

GIF  GINDEX0  EO  0 GGOTO  -STPS2 
G SPACE 

GPRINT  PROJECT  FILE  GALPHA3  / REE  DOES  NOT  EXIST! 

-SER2  G SPACE 

CPR I NT  E VEC  SEOUENCE  RUNP5C  IS  TERMINATING  ABNORMALLY... 

G SPACE 
GOIJIT 

-STPS2  6 STACK  1 1 l\  16 
G STACK  KT 

SORT  GALPHA3  PEE  (BRIEF) 

GSRF.T  = GINDEX0 
GPP  I NT  GSRET  GINDEX0  GALPHA3 
G SPACE 

GIF  GSRET  EO  0 GGOTO  -STPS3 


D.2-28 


TAEG  REPORT  NO.  40 


-SERI  RPR  I NT  SORT  RETURN  CODE  WAS  SSPET 
RGOTO  -SER2 

-STPS3  STATE  CDSN  REE  P 

RIF  RINDEY0  EO  0 RF-OTO  -STPS4 

RPR  I NT  SORT  OUTPUT  FILE  DOES  NOT  EXIST 

RGOTO  -SERI 

-STPS4  CRASE  RALPHA3  REE  P 
ALTER  RDSN  REE  P RALPHA3  REE  P 
ERASE  RDSN  REE  P 
REXTT 


Program  P5C  Specific  User  Instructions 

Each  run  of  Program  P5C  is  associated  with  a unique  ETAM  project  results 
file.  Accordingly,  the  name  of  the  project  of  concern  must  be  provided  by 
the  User  when  invoking  the  RUNP5C  executive.  On  the  sample  run  to  follow, 
this  has  been  accomplished  using  the  project  name  "PN123". 


Program  P5C  Error  Messages 

The  following  error  message  text  can  result  from  running  Program  P5C: 

**  ERROR  NUMBER  XX  HAS  OCCURED  ** 

(followed  by  a general  error  data  output  line) 

This  message  is  significant  for  only  the  following  error  number  "XX": 

01  - The  REE  input  file  (File  Number  32)  cannot  contain  deleted 
entities.  This  error  occurs  if  such  an  entity  is  passed 
into  the  REE  file  by  Program  P5B. 


Program  P5C  Sample  Run  Output 

The  following  is  a complete  run  of  Program  P5C  for  project  "PN123". 


RUNP5C  PN123 

PROJECT  NAMED  PN123  ALREADY  EXISTS, 

IS  THIS  CORRECT?  (RESPOND  YES  OR  QUIT) 

YES 
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OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  QUIT? 

ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 

BOTH 

$$0  0 PN123 


execution: 


EXTRACT  SEARCH  RESULTS  FOR  PROJECT  - PN123 
3-0  PROCEDURAL  TRAINER 


PAGE  NUMBER  : 1 


1 

ORIGINAL 

A 1 9 3 0 0 5 0 

2 

OR  I G I NAL 

A2420010 

3 

ORIGINAL 

A4  1200  10 

4 

ORIGINAL 

A4  1200 10 

5 

ORIGINAL 

A4  3 100  1 1 

6 

ORIGINAL 

A4  3 100 14 

7 

ORIGINAL 

A4 3 300 19 

8 

ORIGINAL 

A4330025 

9 

ORIGINAL 

A4910014 

10 

ORIGINAL 

A5510019 

11 

ORIGINAL 

A5510027 

12 

ORIGINAL 

A5510068 

13 

ORIGINAL 

A5800016 

14 

ORIGINAL 

A6510020 

15 

ORIGINAL 

A6520050 

16 

ORIGINAL 

Ab  5 20068 

17 

ORIGINAL 

A67000 1 1 

18 

OR  I G I NAL 

A7010027 

19 

ORIGINAL 

A7  2000 1 3 

20 

ORIGINAL 

C 003722 

21 

ORIGINAL 

C 003722 

22 

ORIGINAL 

C 003722 

23 

ORIGINAL 

C 003722 

24 

ORIGINAL 

C 003722 

25 

ORIGINAL 

C 2C3352 

26 

ORIGINAL 

C 1003834 

27 

ORIGINAL 

C1023793 

28 

OR  I G I NAL 

C1023793 

29 

ORIGINAL 

C1213011 

30 

ORIGINAL 

C 12 130  1 1 

31 

ORIGINAL 

C6003472 

32 

ORIGINAL 

C6023536 

2213  INERT  NAV  PR  INC 
6529  IS  A 
6078  EA-A 
6287  EA  A 

1035  EOD  BASIC  NAVY 

1036  EOD  REFR  NAVY 
2040  MASTER  DIVOUAL 
2082  DIVER  FIRST 
204G  RADIUM  REMOV  OPS 

0133  CAR  HAND  BAS 
3931  UNREP  MECH/HYD 

0134  FORK  LIFT  OPER 
6053  CTO  A 

5399  1200  PSI  BT 

5224  OX  GENR  6L160P 
463E  SOLAR  GAS  TURBIN 
3078  WATCH  REPAIR 
357M  WELD/HPRES  PIPE 
466Z  UT-J 

2887  TA4JF  FAM  PILOTS 
9007  TA4JF  FAM  PILOTS 

9009  TA4JF  FAM  PILOTS 

9010  TA4JF  FAM  PILOTS 
9738  TA4JF  FAM  PILOTS 
2576  UH IN  A/C  FAM/P/ 
7529  AAS18  I NT  MAI 

7914  A7AB  ATT  HEADING 

7915  A7AB  ATT  HEADING 
346L  AWM23  RADIO  FREO 
544L  AWM23  RADIO  FREO 
340C  E2C  WEA  SYS  FAM 
34  1 D 54H6077  PROP  INT 
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33 

ORIGINAL 

C6463103 

7365 

CVA/CV-ALW  SUPV 

34 

OR  I G INAL 

J2210357 

5 3 8 Q 

MULT  I -THREAT  TNG 

35 

ORIGINAL 

J 23 3020 3 

26  37 

ADV 

EW  OP’S  CRSE 

36 

ORIGINAL 

J2430974 

2181 

I PC 

37 

ORIGINAL 

K2330066 

205  Y 

SUB 

EW  OP-ADV 

38 

ORIGINAL 

LOG  10056 

NONE 

(NO 

ABBREVIATED 

FILE 

DATA 

AVAILABLE) 

39 

OR  I G I NAL 

M198100E 

NONE 

(NO 

ABBREVIATED 

FILE 

DATA 

AVAILABLE) 

40 

ORIGINAL 

N7010320 

NONE 

(NO 

ABBREVIATED 

FILE 

DATA 

AVAILABLE) 

41 

OR  I G INAL 

Q 2C0015 

NONE 

(NO 

ABBREVIATED 

FILE 

DATA 

AVAILABLE) 

42 

ORIGINAL 

83000010 

NONE 

(NO 

ABBREVIATED 

FILE 

DATA 

AVAILABLE) 

43 

ORIGINAL 

83000012 

NONE 

(NO 

ABBREVIATED 

FILE 

DATA 

AVAILABLE) 

44 

ADDED 

A 10 10 108 

7654 

(NO 

ABBREVIATED 

FILE 

DATA 

AVAILABLE) 

::::  NOW  AT  LOF  ON  SEARCH  RESULTS  FILE 


TOTAL  NUMBER  COURSE  RECORDS  PROCESSED  : 44 

TOTAL  NUMBER  VEHICLE  RECORDS  PROCESSED  : 0 

TOTAL  NUMBER  JOBTASK  RECORDS  PROCESSED  : 0 

TOTAL  NUMBER  ROE  RESULT  RECORDS  READ  : 44 

RECORDS  WITHOUT  MATCHING  ABBREVIATED  DATA  : 7 

TOTAL  NUMBER  DIRECTORY  SEARCH  FAILURES  : 0 
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PROGRAM  NAME 
ENTRY  POINT 
RUN  EXECUTIVES(S) 
USER  OUTPUT  VIA 
USER  PROMPTING 
FUNCTION 

NOTE 


P7 

P7 

RUNP7 

Terminal  Only 
None 

Makeup  Course  CIN  Directory  (File  Number  8)  and 
CDP  Directory  (File  Number  9) 

This  program  contains  an  internal  SORT  invocation 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

MREF 

INOUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

COURSE 

INPUT 

7 

DASD 

ETAM/COURSE 

F,  80,  80 

DCIN 

OUTPUT 

8 

DASD 

ETAM/DCIN 

F,  760,  760 

DCDP 

OUTPUT 

9 

DASD 

ETAM/DCDP 

F,  1200,  1200 

S0RTWK01 

S0RTWK02 

S0RTWK03 

SORT 

N/A 

DASD 

(TEMP) 

Standard  internal 

SORT  work  areas 

Discussion 


This  module  constructs  the  two  directories  associated  with  the  Abbreviated 
Course  file.  The  Course  file  itself  is  used  as  the  primary  input.  The 
directories  will  consist  of  Course  CDP  numbers  and  record  pointers  in  one 
file  and  Course  CIN  numbers  and  pointers  in  the  other. 

Each  directory  is  sorted  by  its  key  field  (CIN  or  CDP);  a PL/1  invocation 
of  the  standard  PL/1  sort  package  is  included  within  Program  P7.  Some  of 
the  messages  output  from  this  module  are  the  standard  Sort/Merge  messages 
and  warnings. 
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Listing  of  EXECUTIVE  = RUNP7 
rtype  OFF 

f.COMMENT  MAKEUP  OF  COURSE  DIRECTORIES  (CIN  AND  CDP) 
B COMMENT  NO  ENTRY  PAP.MS 

FILEDEF  COURSE  DSK  ETAM  COURSE  RE  F LP.  80  BL  80 

FILEDEF  MREF  DSK  ETAM  MRE F RE  F LR  80  BL  80 

FI LEDE  F DC  IN  DSK  ETAM  DCIN  RE  F LR  760  BL  760 

FILEDEF  DCDP  DSK  ETAM  DCDP  RE  F LR  1200  BL  1200 

ATTACH  TEMP5  AS  192  BRIEF 

FILEDEF  SORTWK0 1 DSK  W1  SORT  T 

FILEDEF  SORTWK02  DSK  W2  SORT  T 

FILEDEF  SOP.TV'K00  DSK  V/3  SORT  T 

LOAD  P7  CCLEAR  LIBE)  PLILIB 

START  (BRIEF) 

FILEDEF  ::  CLEAR 
DETACH  192  BRIEF 
SEXIT 


Program  P7  Error  Messages 

In  the  event  of  an  error  detected  by  the  Sort/Merge  package: 

**  SORT  RETURN  CODE  INVALID,  CODE  WAS  16  ** 

COURSE  DIRECTORY  CONSTRUCT  PROGRAM  IS  NOW  TERMINATING 


The  following  message  strings  are  caused  by  overflow  of  the  internal  table 
allotted  for  directories.  The  current  implementation  allots  a CIN  directory 
maximum  of  304  entries,  and  a CDP  directory  max  of  1200  entries.  One  of  the 
message  sequences  below  will  result  in  the  event  of  overflow: 

****  CIN  TABLE  OVERFLOW  **** 


****  CDP  TABLE  OVERFLOW  **** 

DIRECTORY  CONSTRUCT  PROGRAM  IS  TERMINATING  DUE  TO  ERROR 
**  SORT  RETURN  CODE  INVALID,  CODE  WAS  8 ** 

COURSE  DIRECTORY  CONSTRUCT  PROGRAM  IS  NOW  TERMINATING 


Program  P7  Specific  User  Instructions 
None. 
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Program  P7  Sample  Run  Output 

The  following  represents  an  actual  run  of  P7.  The  output  is  shown  in  its 
entirety.  Note  that  this  output  is  directed  only  to  the  online  terminal 
printer  device.  The  output  below  represents  the  actual  contents  of  both 
the  Course  CIN  and  CDP  directories  in  the  current  ETAM  implementation. 


RUNP7 

$ 

ABBREVIATED  COURSE  DATABASE  CIN/CDP  DIRECTORY 
CONSTRUCT  PROCRAM 

IER036I  - B = 363 

IER037I  - 0 = 543 

IER038I  - UMAX  = 11970 

5;::  EOF  ON  COURSE  IN»»UT  FILE  ; SORT  PHASE  START 

IER045I  - END  SORT  PH 
IER049I  - SKIP  ME ROE  PH 

SORT  PHASE  COMPLETE  ; START  INO  CIN  DIRECTORY  MAKEUP 


1 MUM 

C IN 

TOTAL  COPS 

P.EC  P 

1 

A 000111 

1 

0 

2 

A 2E0013 

1 

1 

3 

A 200014 

1 

2 

4 

A 8C0015 

1 

3 

5 

A1010108 

3 

6 

6 

A1930050 

1 

7 

7 

A2420010 

1 

8 

8 

A4120010 

2 

9 

9 

A4310011 

1 

11 

10 

A4 3 10014 

1 

12 

11 

A4330019 

1 

13 

12 

A4330025 

1 

14 

13 

A4910014 

1 

15 

14 

A50000 1 1 

2 

17 

15 

A5000028 

2 

19 

16 

A5000032 

4 

23 

17 

A5  1000  12 

1 

24 

18 

A5320015 

1 

25 

19 

A5420014 

1 

26 

20 

A5510019 

1 

27 

21 

A5510027 

1 

28 

22 

A5510068 

1 

29 

23 

A57000  10 

1 

30 

24 

A5800016 

1 

31 

25 

A6510010 

2 

33 

26 

A6510020 

2 

35 

27 

A6520050 

1 

36 

28 

A6520068 

1 

37 

29 

A67000U 

1 

38 

30 

A6700025 

1 

39 

31 

A7010027 

2 

41 

32 

A7020024 

1 

42 
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33 

A7 1000  16 

1 

43 

34 

A7120011 

2 

45 

35 

A7200013 

2 

47 

36 

C 003491 

1 

48 

37 

C 003722 

5 

49 

33 

C 003807 

1 

54 

39 

C 2A3502 

1 

55 

40 

C 2A3531 

1 

56 

41 

C 2A3831 

4 

57 

42 

C 2C3352 

1 

61 

43 

C1003834 

1 

62 

44 

C 102  3793 

2 

63 

45 

C1213011 

2 

65 

46 

C2222010 

1 

67 

47 

C4202011 

1 

68 

48 

C5163203 

6 

69 

49 

C6003358 

1 

75 

50 

C6003472 

1 

76 

51 

C6003331 

2 

77 

52 

C6023353 

1 

79 

53 

C6023482 

2 

81 

54 

C6023536 

2 

83 

55 

C6463103 

3 

86 

56 

,J  2E0100 

1 

87 

57 

>J22  1030  3 

2 

89 

53 

«J  2 2 10310 

1 

90 

59 

J22  10344 

2 

91 

60 

J 2210348 

1 

93 

61 

,J  2210357 

2 

95 

62 

,12330203 

1 

96 

63 

J 2330211 

5 

97 

64 

J2430974 

1 

102 

65 

■J2500  3 1 3 

2 

103 

66 

,J64409  14 

1 

105 

67 

J6520474 

1 

106 

68 

K 2E1078 

1 

107 

69 

K2  2 1004  2 

1 

108 

70 

K2220035 

1 

109 

71 

K2330066 

1 

110 

LAST 

OF  CIN  DIRECTORY 

ENTRIES 

END 

:::  NOW 

START  INC  CDP  DIRECTORY  ”” 

DP  NUN 

CDP  REC 

PTR 

1 

0133 

27 

2 

0134 

29 

3 

0143 

2 

4 

0303 

1 

5 

0327 

0 

6 

1034 

105 

7 

1035 

11 

D.2-35 


TAEG  REPORT  NO.  40 


3 

1036 

12 

9 

2010 

20 

10 

202M 

21 

11 

204E 

80 

12 

2040 

15 

13 

2040 

13 

14 

205W 

97 

15 

205  Y 

110 

ir> 

2082 

14 

17 

2121 

39 

18 

2131 

3 

19 

2181 

102 

20 

2213 

7 

21 

2374 

57 

22 

2398 

18 

23 

2576 

61 

24 

2601 

22 

25 

2637 

96 

26 

265V 

103 

27 

266C 

104 

28 

2667 

81 

29 

267  1 

82 

30 

2717 

69 

31 

2887 

'49 

32 

3078 

38 

33 

3192 

16 

34 

3193 

17 

35 

3202 

40 

36 

3205 

43 

37 

32  IX 

70 

38 

32  1Z 

71 

39 

322B 

72 

40 

3220 

73 

41 

32  2E 

74 

42 

3249 

.30 

43 

3 37N1 

41 

44 

340C 

76 

45 

34  ID 

83 

46 

346  F 

44 

47 

346L 

65 

48 

349H 

84 

49 

349K 

35 

50 

35  1J 

42 

51 

35  IQ 

45 

52 

3931 

28 

53 

4023 

46 

54 

4138 

34 

55 

4510 

68 

56 

46 1W 

19 

57 

463C 

37 

58 

466Z 

47 

59 

470P 

25 

60 

4717 

26 
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61 

4964 

75 

62 

5 16U 

4 

63 

5224 

36 

64 

52  5U 

98 

65 

526K 

91 

66 

5 28E 

88 

67 

528H 

97 

68 

523.1 

93 

69 

5324 

99 

70 

533P 

94 

71 

5 337. 

100 

72 

5 34  A 

89 

73 

5 34Z 

109 

74 

538P 

90 

75 

5380 

95 

76 

5 39  J 

23 

77 

5399 

35 

73 

540M 

58 

79 

540N 

59 

80 

542N 

101 

31 

544L 

66 

82 

5535 

5 

83 

5599 

108 

34 

6053 

31 

85 

6057 

24 

86 

6069 

32 

87 

6078 

9 

88 

6260 

33 

39 

6278 

67 

90 

6287 

10 

91 

6529 

8 

92 

7365 

86 

93 

7529 

62 

94 

7540 

77 

95 

754  1 

73 

96 

7654 

6 

97 

7914 

63 

93 

7915 

64 

99 

7933 

79 

100 

3178 

106 

101 

9007 

50 

102 

9009 

51 

103 

9010 

52 

104 

9033 

54 

105 

9051 

55 

106 

9002 

60 

107 

9279 

87 

108 

9738 

53 

109 

9740 

107 

110 

9750 

48 

111 

9751 

56 

IER055  I 

- INSERT 

IER054  I 

- RCD  IN 

IER052I 

- EO.J 

SORT 

COMPLETED 

OK, 

::::  CIN 

DIRECTORY 

HAS  1 

COP 

DIRECTORY 

HAS  1 

2 22, DELETE 
,OUT 

CODE  = 0 ! 


222 


COURSE  DIRECTORY  CONSTRUCT  PPOORAM  IS  NOW  TERM I NAT IN^ 
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PROGRAM  NAME  : P7A 
ENTRY  POINT  : P7A 
RUN  EXECUTIVES(S)  : RUNP7A 
USER  OUTPUT  VIA  : Terminal  Only 
USER  PROMPTING  : None 

FUNCTION  : Load  Course  Descriptor  File  (File  Number  6) 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

MREF 

INOUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

F,  80,  80 

DESC 

OUTPUT 

6 • 

DASD 

ETAM/ DESC 

F,  213,  213 

DCARD 

INPUT 

5 

DASD 

ETAM/SCDESC 

F,  80,  80 

Discussion 

The  output  of  this  program  is  the  Course  Descriptor  file  (File  Number  6).  Note 
that  the  same  descriptor  card  input  file  (File  Number  5)  was  used  in  Program 
P14  to  select  the  appropriate  Course  file  CIN  numbers.  Accordingly,  there  will 
be  no  errors  of  mismatched  CIN  numbers  in  the  run  of  this  Program  P7A. 


Listing  of  EXECUTIVE  = RUNP7A 


GTYPE  OFF 

GCOMMENT  COURSE  DESCRIPTORS  FILE  LOAD 
GCOMMENT  NO  ENTRY  PARMS 
FILEDEF  MREF  DSK  ETAM  MREF  RE  F LR  80  BL  80 

FILLDEF  DIND  DSK  ETAM  DIND  RE  F LR  80  BL  80 

FILEDEF  DCARD  DSK  ETAM  SCDESC  RE  F LR  80  BL  80 

FILEDEF  DESC  DSK  ETAM  DESC  RE  F LR  213  BL  213 

LOAD  P7A  (CLEAR  L I BE)  PLILIB 
START  (BRIEF) 

FILEDEF  ::  CLEAR 
GEXIT 
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Program  P7A  Error  Messages 

\ 

The  only  error  diagnosed  by  this  program  is  that  of  an  invalid  numeric 
subscript  occuring  on  an  input  card.  This  error  is  detected  by  comparing 
the  given  descriptor  numbers  with  those  indicated  as  legal  in  the  Master 
Descriptor  Index  file  (File  Number  3).  The  following  error  message  results 
in  the  event  of  a mis-compare;  this  error  condition  is  not  considered  terminal, 
and  the  program  continues  with  the  next  subscript  for  consideration. 


**  ERROR  IN  CIN  -12345678-  DESCRIPTOR  SUBSCRIPT  999  DOES  NOT  EXIST  ** 


Program  P7A  Specific  User  Instructions 
None. 


Program  P7A  Sample  Run  Output 

The  following  represents  an  actual  run  of  Program  P7A.  The  output  is  not 
shown  in  its  entirety.  Note  that  this  output  is  directed  only  to  the  online 
terminal  printer  device.  The  output  shown  represents  the  current  contents 
of  the  Course  Descriptor  file. 


RUNP7A 

* 

COURSE  FILE  DESCRIPTOR  LOAD  PROGRAM 
CIN  ASSIGNED  DESCR I PTOR(S) 


A 000111  01  03  04  11  12  13  20  21  22  33  42  45  48  53 

A 2E0013  01  02  03  10  21  33  65  80  82 

A 2G0014  01  02  03  12  33  41  42  44  45  48  52  53  65  69 

A 4A0025  03  12  21  22  33  80 

A 8C0015  01  05  12  20  32  80 

A1010108  30  31  71  80  83 

A1020060  03  31  64  85  71  85 

A1020093  03 


A1020095 

05 

11 

12 

13 

CM 

21 

31 

64 

65 

82 

83 

A1930050 

05 

51 

80 

A2420010 

05 

20 

21 

22 

30 

32 

63 

64 

65 

66 

35 

A24400 10 

05 

10 

11 

12 

13 

32 

60 

62 

63 

66 

80 

65  66  82 
82  84 


(Completion  of  text  output  presented  on  following  page) 
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NOTE  - Majority  of  text  output  has  been  eliminated 
for  the  sake  of  brevity.  The  last  few  lines 
of  Program  P7A  output  are  as  shown  below. 


K 002044 

01 

03 

04 

11 

12 

13 

20 

22 

32 

64 

65 

66 

82 

84 

K 2E1078 

01 

02 

03 

05 

10 

12 

21 

33 

42 

45 

49 

53 

65 

66 

72 

82 

K2210042 

01 

05 

20 

30 

42 

45 

53 

63 

64 

82 

83 

K 2220035 

02 

03 

20 

30 

41 

44 

49 

52 

61 

62 

64 

67 

69 

72 

86 

K2  3 30066 

01 

02 

03 

05 

13 

14 

20 

30 

40 

41 

44 

52 

61 

62 

63 

64 

81 

84 

L 1 0 1 0 0 2 4 

05 

80 

L6610056 

03 

11 

12 

13 

31 

40 

43 

46 

49 

52 

62 

63 

64 

65 

85 

M 1 9 8 1 0 0 E 

03 

11 

20 

31 

40 

44 

46 

49 

52 

64 

65 

84 

85 

N 1000555 

05 

11 

12 

13 

20 

21 

31 

42 

45 

48 

53 

64 

65 

71 

84 

N 7010320 

03 

05 

10 

11 

12 

13 

20 

31 

40 

44 

46 

49 

51 

61 

62 

63 

64 

85 

P 003308 

01 

02 

03 

04 

11 

12 

20 

21 

22 

33 

42 

45 

48 

53 

65 

66 

82 

83 

Q 2C0015 

03 

11 

12 

13 

20 

30 

40 

43 

46 

49 

51 

64 

67 

68 

85 

R2 106104 

05 

20 

32 

42 

45 

48 

64 

83 

89 

S5000029 

01 

02 

03 

04 

10 

12 

13 

20 

32 

44 

60 

65 

66 

84 

33000010 

02 

03 

05 

10 

11 

12 

13 

20 

30 

62 

63 

64 

65 

81 

84 

83000012 

03 

04 

05 

11 

12 

13 

20 

21 

30 

32 

62 

63 

64 

65 

69 

81 

83 

::::  NOW  AT  EOF  ON  DESCRIPTOR  CARD  INPUT  :s5{ 


TOTAL  NUMBER  DESCRIPTOR  INPUT  CARDS  : 132 

TOTAL  UNIQUE  CIN  NUMBERS  IN  INPUT  : 122 

TOTAL  NUMBER  OUTPUT  DESCRIPTOR  RECORDS  : 122 

TOTAL  NUMBER  CIN  OR  SUBSCRIPT  ERRORS  : 0 

COURSE  DESCRIPTOR  LOAD  PROGRAM  IS  TERMINATING 
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PROGRAM  NAME  : P7B 

ENTRY  POINT  : IHECMS  (Parameter  Supplied  by  Executive  RUNP7B  at  Entry) 

RUN  EXECUTIVES(S)  : RUNP7B,  DEVICE,  JCL 

USER  OUTPUT  VIA  : Terminal,  Offline  Printer,  or  Both 

USER  PROMPTING  : At  Executive  Level:  (1)  Output  Device  Select 

(2)  Print  Option  (A,  B,  or  C)  Select 

FUNCTION  : Print  Data  Contained  Within  or  Associated  With  the 
Abbreviated  Course  File  (File  Number  7) 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

MPTR 

OUTPUT 

N/A  : THIS  IS  THE  OFFLINE  PRINTER 

FA,  121,  121 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

COURSE 

DIRECT 

7 

DASD 

ETAM/COURSE 

F,  80,  80 

INDESC 

INPUT 

3 

DASD 

ETAM/DIND 

F,  80,  80 

DCDP 

INPUT 

9 

DASD 

ETAM/DCDP 

F,  1200,  1200 

Discussion 


This  module  serves  to  provide  printer  dumps  of  the  contents  of  the  Abbreviated 
Course  file.  Due  to  the  size  of  the  output,  offline  print  is  recommended  as 
the  most  economical  method. 


Listing  of  EXECUTIVE  = RUNP7B 


GTYPE  OFF 

GCOMMENT  G . P . PRINT  EXEC  FOR  COURSES 

GCOMMENT  ENTRY/DEVICE  PROMPTS  DONE  HERE  AND  IN  EXEC  = DEVICE 
G SPACE 

G PR  I NT  ABBR.  COURSE  FILE  PRINT  PPOGRAM  IS  STARTING 
G SPACE 

GPRINT  ENTER  SINGLE  CHARACTER  OPTION  (OR  QUIT  TO  TERMINATE) 

GPR I NT  A = PRINT  ALL  COURSES,  SORTED  BY  CIN 

GPRINT  B = PRINT  ALL  COURSES  IN  CDP  ORDER 

GPRINT  C = LIST  DESCRIPTORS  ASSIGNED  TO  COURSE  DATA 
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-ST PI  SREAD  ARCS 

sif  s l eq  quit  souit 

RALPHA0  = SI 

SIF  SI  EQ  A SF-OTO  -STP2 

SIF  SI  EO  B CGOTO  -STP2 

SIF  Cl  EO  C CGOTO  -STP2 

SSPACE 

SPRINT  UNABLE  TO  DETERMINE  ENTRY  TYPE  - TRY  AFA  IN 
SSPACE 
SCOTO  -ST PI 
-STP2  EXEC  DEVICE 

SALPHA2  = S ALPHA 0 !l  C ALPHA  1 
-STP3  SSPACE 
L'XEC  .ICL 

FI LEDE c DIND  CLEAR 

PILEDEF  TNDESC  DSK  ETAM  DINO  RE  F LR  80  BL  80 
FI LEDE  F MPTR  PTR  RE  FA  LR  121  BL  121 
LOAD  P7Q  (CLEAR  LIRE)  PLILIB 
START  IHECMS  CALPHA2  (BRIEF) 

FI LEDE F " CLEAR 
SEX  IT 


Program  P7B  Specific  User  Instructions 

As  shown  in  the  samples  following,  the  User  will  be  prompted  for  both  output 
device  and  type  of  output.  The  type  of  output  is  categorized  by  the  following 
options  in  this  program: 

Option  Meaning 

A Print  the  contents  of  each  Abbreviated  Course  file 

record;  the  output  is  to  be  ordered  by  CIN  number. 

B Print  the  same  contents;  output  order  is  by  CDP  number. 

C Print  the  descriptors  associated  with  Courses;  the 

data  for  this  output  is  retrieved  from  the  Master 
Descriptor  Index  file  (File  Number  3). 

NOTE  - To  print  each  of  the  Course  CIN  numbers 

and  the  actual  descriptors  assigned  to  each, 
use  Option  "C"  of  Program  P20. 
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Program  P7B  Error  Messages 

The  following  error  message  can  result  during  Program  P7B  execution: 

**  ERROR  XX  OCCURED  ; NREC  WAS  YYYYY  ** 

In  this  message,  "XX"  is  the  error  number  as  explained  below.  The  quantity 
"YYYYY"  is  the  number  of  the  input  record  on  which  the  error  was  detected. 


XX  Meaning 

01  Print  Option  "B"  was  being  processed.  The  CDP  Directory 

File  indicated  that  a record  was  to  be  accessed  from  the 
Abbreviated  Course  file.  The  record  number  of  the  new 
record  was  outside  the  bounds  of  the  Course  file.  Note 
that  the  maximum  number  of  allowed  records  appearing  in 

thq  Course  file  is  maintained  in  the  first  count  (subscript  = 1) 
of  the  Master  Reference  file  (File  Number  1). 

02  Print  Option  "C"  processing.  Master  Reference  file 

(subscript  = 4)  contains  the  maximum  usable  record  in  the 

Descriptor  Index  (File  Number  3)  file.  An  attempt  was 
made  to  read  a record  beyond  this  allowable  limit. 
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Program  P7B  Sample  Run  Output  - Print  Option  “A11 

The  following  represents  a sample  of  an  actual  run  of  Program  P7B  using  Print  Option  "A".  The 
appearance  of  the  output  resulting  from  Option  "B"  would  be  the  same,  except  for  ordering  of  the 
individual  records.  Accordingly,  a "B"  Option  sample  will  not  be  shown. 

RUNP7U 
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C* 

X 


C 


rv 

UJ 

or 

X 

c 

< 

•— * 

x 

X 

X 

a 

c 

UJ 

< 

CO 
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X 

< 

* 

** 

C 

Q 

a 

X 

X 

UJ 

a 

UJ 

x 

< 

X 

to 

x 

or 

to 

3 

a 

C ~ 

C 

a 

to 

o 

or 

CJ 

or 

UJ 

UJ 

c x 

3 

C 

z 

X 

W cc 

or 

X 

~ X 

< 

C 

-J  ♦- 

a 

2 Q 

c 

a x 

e 

O UJ 

Cl 

UJ 

a c 

c 

*-•  X 

C 

c 

a 

X O' 

U 

C 

a 

a 

a.  c 

sC 

C lO 

X 

to 

-j 

x 

*— « 

to 

< ^ 

a ^ 

< 

uj  to 
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A 2G0014  0143  MINE  C/M  OFF  9 268  0000  CCB  0431  1 33  120  30  0.0  0.0 

PRIORITY  : 25  TYPE  CRS  : C2  SFRVICE  COE  : 1 COST/AOR  : 0.00 

TRAPS  : STATUS  : A STATUS  DTE  : 72133  METH-I  ! L 

. Output  terminated  at  this  point  ... 
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Program  P7B  Sample  Run  Output  - Print  Option  "C" 

The  following  is  an  actual  Program  P7B  run  using  Print  Option  "C". 


RUNP7B 

AUUR.  COURSE  FILE  PRINT  PROGRAM  IS  STARTING 

ENTER  SINGLE  CHARACTER  OPTION  (OR  QUIT  TO  TERMINATE) 

A = PRINT  ALL  COURSE S,  SORTED  BY  CIN 

B = PRINT  ALL  COURSES  IN  CDP  ORDER 

C = LIST  DESCRIPTORS  ASSIGNED  TO  COURSE  DATA 

C 

OUTPUT  TO  GO  TO  TERMINAL,  OPPLINt  PRINTER,  BOTH,  OR  Ol'IT'> 
ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 

TERM 

$$execution: 

PAGE  : 1 


--  COURSES 

::::  REFERENCE  KNOWLEDGE 

01  SYSTEM  PURPOSES 

02  ORGANIZATIONAL  ROLES 

03  CONTEXTS  OF  OPERATION 

04  ORGAN IZAT IONAL  RULES 

05  OTHER 

ENABLING  KNOWLEDGE 

10  OPERATIONAL  GOAL  CRITERIA 

11  NOMENCLATURE,  IDENTIFICATION,  LOCATION 

12  PROCEDURAL  DESCRIPTIONS 

13  .JOB  RELEVANT  FACTS, RULES 

14  OTHER 

5J”  TASK  FORMATS 

20  PROCEDURE  FORMATS 

21  DECISION  FORMATS 

22  CONSTRUCTION  FORMATS 

23  OTHER 

GROSS  JOB  CATEGORIES 

30  OPERATIONS 

31  MAINTENANCE 

32  SERVICE  G ADMINISTRATION 

33  COMMAND 

34  OTHER 
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::::  OBJECTIVE  TASK  VARIABLES  AS  MANIFEST  IN  THE  TRAINING 

40  EQUIPMENT  S OBJECTS  USED:  REAL 

41  EQUIPMENT  F.  OBJECTS  USED:  SIMULATED 

42  EQUIPMENT  G OBJECTS  USED:  SYMBOLIC 

43  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  REAL 

44  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  SIMULATED 

45  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  SYMBOLIC 

46  TOOLS/ INSTRUMENTS  USED  IN  TRAINING  REAL 

47  TOOLS/ INSTRUMENTS  USED  IN  TRAIN  INC-:  SIMULATED 

48  TOOLS/ INSTRUMENTS  USED  IN  TRAINING:  SYMBOLIC 

49  REF/ENABLING  INFO  IN  DOING  TASK:  APPLIED 

50  REF/ENABLING  INFO  IN  DOING  TASK:  NOT  APPLIED 

51  CRITERIA  OF  TASK  PERFORMANCE:  REAL 

52  CRITERIA  OF  TASK  PERFORMANCE:  SIMULATED 

53  CRITERIA  OF  TASK  PERFORMANCE:  SYMBOLIC 

•**»  TASK  FUNCTIONS  DOMINANT  IN  TRAINING 

60  GOAL  PROJECTION 

61  SCAN-DETECT 

62  IDENTIFY 

63  INTERPRET 

64  PROCEDURE  FOLLOWING' 

65  DECIDE 

66  CONSTRUCT , PLAN 

67  TRACK 

68  MOTOR  PERFORMANCE 

69  INTERPERSONAL  INTERACTION 

70  RECALL  TASK-CYCLE  INFORMATION 

71  RECALL  ENABLING  INFORMATION 

72  ADAPT  IMPROVISAT IONALLY/ IMPROMPTU 


PAGE  : 2 

73  OTHER 

STAGE  OF  LEARNING 

80  ORIENTATION,  PAM I L IAR I Z AT  I ON 

81  TASK  NOMENCLATURE,  IDENTS,  LOCATIONS,  FACTS,  RULES 

82  TASK  FORMATS  AT  CONCEPTUAL  LEVEL 

83  PROCEDURES  AT  VERBAL  LEVEL  ONLY 

84  TASK  COMPONENTS  WITH  GUIDANCE 

85  ENTIRE  JOB-TASK  PROCEDIJRALLY  AT  BARELY  ACCEPTABLE  MASTE°v 

86  HIGHLY  PROFICIENT  IN  WORK  CONTEXT 

87  UNUSUAL  TASK  CONDITIONS 

88  PERFORMANCE  AT  KEY  MAN  LEVEL 

89  REFRESHER  LEARNING 
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PROGRAM  NAME 
ENTRY  POINT 
RUN  EXECUTIVES (S ) 
USER  OUTPUT  VIA 
USER  PROMPTING 
FUNCTION 


: P8 
: P8 
: RUNP8 

: Terminal  Only 
: None 

: Makeup  Vehicle  Abbreviated  Data  File,  Directory, 
and  Descriptor  File  (File  Numbers  15,  16,  and  12, 
Inclusive) 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

MREF 

INOUT 

1 

DIND 

DIRECT 

3 

VDATA 

INPUT 

14 

VCDESC 

INPUT 

11 

DVEH 

OUTPUT 

16 

VDESC 

OUTPUT 

12 

VEHS 

OUTPUT 

15 

Media  Filename/Filetype  Format 


DASD 

ETAM/MREF 

F,  80,  80 

DASD 

ETAM/DIND 

F,  80,  80 

DASB 

ETAM/SVDATA 

F,  80,  80 

DASD 

ETAM/SVCDESC 

F,  80,  80 

DASD 

ETAM/DVEH 

F,  750,  750 

DASD 

ETAM/VDESC 

F,  213,  213 

DASD 

ETAM/VEHS 

F,  80,  80 

Discussion 


All  three  files  of  the  Abbreviated  Vehicle  data  base  are  created  by  Program  P8. 
This  includes  the  data  file  (File  Number  15),  the  Vehicle  Directory  (File 
Number  16),  and  the  Vehicle  Descriptor  file  (File  Number  12). 
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Listing  of  EXECUTIVE  = RUNP8 


t.type  off 

ft COMMENT  MAKE  VEH  DATA/DIRECTORY/DESCRIPTOR  FILES 
ftCOMMENT  NO  ENTRY  PARC'S 
FILEOEF  MREF  DSK  ETAM  MREF  RE  F LR  80  BL  80 

FILEDEF  DIND  DSK  ETAM  DIND  RE  F LR  80  BL  80 

FILEOEF  VDATA  DSK  ETAM  SVDAT A RE  F LR  80  BL  80 
FILEDEF  VCDESC  DSK  ETAM  SVCDESC  RE  F LR  80  BL  80 
FILEDEF  VDESC  DSK  ETAM  VDESC  RE  F LR  213  BL  213 
FILEDEF  VEHS  DSK  ETAM  VEHS  RE  F LR  80  BL  80 

FILEDEF  DVEH  DSK  ETAM  DVEH  RE  F LR  750  BL  750 

LOAD  P3  (CLEAR  LIBE)  PLILIB 
START  (BRIEF) 

FILEOEF  ::  CLEAR 
ftEXIT 


Program  P8  Error  Messages 

Within  the  data  input  deck  (File  Number  11),  a given  Stock  Number  can 
exist  only  on  one  card.  Since  the  deck  is  sorted,  duplicates  will  be 
signaled  by  the  following  message,  and  then  rejected: 

**  DUPLICATE  STOCK  NUMBER  ON  PRECEEDING  CARD 
RECORD  WILL  BE  IGNORED  ** 

NOTE  - See  sample  output  (to  follow)  for  an  example  of  this 
message. 

Within  the  descriptor  input  deck,  a given  numeric  descriptor  can  be  illegal. 
Program  P8  verifies  the  existence  of  each  such  descriptor  through  use  of 
the  Master  Descriptor  Index  (File  Number  3).  If  an  error  is  detected,  the 
following  message  will  ensue: 

**  ERROR  IN  VEH  -1234567890123-  DESCRIPTOR  SUBSCRIPT 
999  DOES  NOT  EXIST  ** 
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Since  both  the  Vehicle  data  cards  and  the  Vehicle  descriptor  cards  are 
input  to  P8,  discrepancies  can  exist  within  the  Stock  Numbers.  The 
following  messages,  if  applicable,  will  be  printed  after  the  descriptor 
file  has  reached  EOF  and  the  EOF  message  printed. 

**  THE  FOLLOWING  DATA  FILE  VEH  NUMBERS  HAVE  NO 
MATCH  IN  THE  VEH  DESCRIPTOR  INPUT  ** 


XXXXXXXXXXXXX 

YYYYYYYYYYYYY 


and/or  the  following 


**  THE  FOLLOWING  DESCRIPTOR  CARD  VEH  NUMBERS  HAVE  NO 
MATCH  IN  THE  VEH  DATA  FILE  ** 


XXXXXXXXXXXXX 

YYYYYYYYYYYYY 


Either  or  both  of  the  above  error  message  sequences  will  be  absent  in  the 
event  of  no  detected  errors. 


Program  P8  Specific  User  Instructions 

Both  the  input  Vehicle  data  file  (File  Number  14)  and  the  Vehicle  descriptor 
card  file  (File  Number  11)  must  be  sorted  into  ascending  order  by  Stock 
Number  before  run  of  Program  P8. 


Note  that  both  of  these  sorts  are  accomplished  within  the  executive 
STARTUP. 


Program  P8  Sample  Run  Output 

The  following  represents  sections  of  an  actual  run  of  Program  P8.  Content 
sufficient  to  illustrate  the  output  message  sequence  has  been  maintained. 
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6940LLC003443 

05 
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81 
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05 
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32 

42 

52 

61 
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81 
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05 
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32 

42 

52 

61 

71 

81 
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05 

11 

21 

32 

42 

52 

61 

71 

81 
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05 

11 

21 

32 

42 

52 

61 

71 

81 
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05 
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32 

42 

52 

61 

71 

81 
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05 
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05 
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21 
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42 

52 

61 

71 
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33 
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05 
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21 

32 

42 

52 

61 

71 

81 

6940008506112 

05 

11 

21 

32 

42 

52 

61 

71 

81 

EOF  REACHED  ON  DESCRIPTOR  CARD  INPUT  FILE  :::: 

TOTAL  NUMBER  DESCRIPTOR  CARDS  INPUT  : 63 

TOTAL  NUMBER  UNIQUE  VEHICLE  STOCK  NUMBERS  : 63 

TOTAL  MATCHES  FOUND  IN  VEHICLE  DATA  DIRECTORY  : 63 

VEHICLE  DATA/DIRECTORY/DESCRIPTOR  LOAD  PROGRAM 
IS  NOW  TERMINATING 
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PROGRAM  NAME 
ENTRY  POINT 

RUN  EX ECUTIVES (S) 
USER  OUTPUT  VIA 
USER  PROMPTING 

FUNCTION 


P8A 

IHECMS  (Runtime  Parameter  Supplied  by  Executive  RUNP8A 
at  Entry) 

RUNP8A 

Terminal,  Offline  Printer,  or  Both 

At  Executive  Level:  (1)  Output  Device  Select 

(2)  Print  Option  (A  or  B)  Select 

Print  Data  Within  or  Associated  With  the  Abbreviated 
Vehicle  File  (File  Number  15) 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

SYSPRINT 

OUTPUT 

N/A  : THIS  IS  THE  OFFLINE  PRINTER 

FA,  121,  121 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

F,  80,  80 

DVEH 

INPUT 

16 

DASD 

ETAM/DVEH 

F,  750,  750 

VEHS 

DIRECT 

15 

DASD 

ETAM/VEHS 

F,  80,  80 

Discussion 

The  contents  of  the  Abbreviated  Vehicle  data  file  are  dumped  to  the  online 
terminal  of  offline  printer  (or  both)  by  use  of  Program  P8A. 


D.2-52 


TAEG  REPORT  NO.  40 


Listing  of  EXECUTIVE  = RUNP8A 


GTYPE  OFF 

G COMMENT  G.P.  PRINT  EXEC  FOR  VEHICLES 

R COMMENT  ENTRY/DEVICE  PROMPTS  DONE  HEPE  AND  IN  EXEC  = DEVICE 
G SPACE 

6 PRINT  ABBR  . VEHICLE  FILE  PRINT  PROGRAM  IS  START  INC 
G SPACE 

GPRINT  ENTER  SINGLE  CHARACTER  OPTION  COR  QUIT  TO  TERMINATE) 
SPRINT  A = PRINT  ALL  VEHICLE  RECORDS  IN  SORTED  ORDER 
GPRINT  B = LIST  DESCRIPTORS  ASSIGNED  TO  VEHICLE  DATA 
- ST  P 1 GREAD  ARCS 

GIF  G 1 EO  ON  IT  GOUTT 
GALPHA0  = G 1 
GIF  G 1 EO  A GGOTO  -STP2 
GIF  G 1 EO  B GGOTO  -STP2 
G SPACE 

GPRINT  UNABLE  TO  DETERMINE  ENTRY  TYPE  - TRY  AGAIN 
G SPACE 
GGOTO  -STP1 
-STP2  EXEC  DEVICE 

GALPHA2  = CALPMA0  ! I GAL PH A 1 
-STP3  GSPACE 
EXEC  JCL 

FILEDEF  SYSPP.INT  PTR  RE  FA  LR  12  1 BL  12  1 
LOAD  P8A  CCLEAR  LIRE)  PLILIR 
START  IHECMS  CALPHA2  (BRIEF) 

FILEDEF  J:  CLEAR 
GEXIT 
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Program  P8A  Specific  User  Instructions 

As  shown  in  the  samples  to  follow,  the  User  will  be  prompted  for  both 
output  device  and  type  of  output.  The  type  of  output  is  categorized  by 
the  following  options  in  this  program: 

Option  Meaning 

A Print  the  contents  of  each  Abbreviated  Vehicle  file 

record.  The  order  of  output  will  be  the  natural  order 
of  the  file,  i.e..  Vehicle  Stock  Number. 

B Print  the  descriptors  associated  with  Vehicles.  The 

data  for  this  output  is  retrieved  from  the  Descriptor 
Master  Index  file  (File  Number  3). 

NOTE  - To  print  each  of  the  Vehicle  Stock  Numbers  and 
the  actual  descriptors  assigned  to  each  unique 
Stock  Number,  use  the  "V"  Option  of  Program  P20. 

Program  P8A  Error  Messages 

The  following  error  message  results  during  Program  P8A  execution  only  in  the 
event  of  a serious  logic  defect  in  the  program: 

**  ERROR  XX  OCCURED  ; NREC  WAS  YYYYY  ** 

In  the  message,  "XX"  is  the  error  number  as  explained  below.  The  quantity 
"YYYYY"  indicates  the  number  of  the  input  record  on  which  the  error  was 
detected. 

XX  Meaning 

01  While  processing  Print  Option  "B",  an  attempt  was  made  to 
access  a record  that  was  outside  the  bounds  of  the  Descriptor 
Master  Index  file  (ETAM/DIND  - File  Number  3).  Note  that 
the  maximum  number  of  records  present  in  File  Number  3 is 
indicated  in  the  fourth  (subscript  = 4)  count  in  the  Master 
Reference  File  ETAM/MREF. 

02  During  Print  Option  "A"  processing,  an  attempt  was  made  to 
access  a record  outside  the  bounds  of  the  Vehicle  data  file. 
Master  Reference  file  (subscript  = 7)  indicates  the  maximum 
record  number  used  in  the  Vehicle  data  file  (File  Number  15). 
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Program  P8A  Sample  Run  Output  - Print  Option  "A" 

The  following  listing  is  a portion  of  an  actual  run  of  Program  P8  using 
Print  Option  "A". 


RUNP8A  r 

ABBR.  VEHICLE  FILE  PRINT  PROGRAM  IS  STARTING 

ENTER  SINGLE  CHARACTER  OPTION  COP  QUIT  TO  TERMINATE) 

A = PRINT  ALL  VEHICLE  RECORDS  IN  SORTED  ORDER 
B = LIST  DESCRIPTORS  ASSIGNED  TO  VEHICLE  DATA 

A 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  Ol'IT? 
ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 

TERM 

$$$$execution: 

PAGE  : 1 

ITEM  STOCK  NUM  DE  S I GNAT  OR  DEVICE  COST 


1 69 10LLC000468  12CD-17  $50.00 

MATH,  VECTOR  ACCELERAT I ON  DEMONSTRATOR  T/A 

2 69 10LLC 000460  12CD-13  $2,000.00 

MATH,  NOMOGRAPHIC  PROJECTION  DEMONSTRATOR  T/A 

3 6910LLC000470  12CD-19  $1,500.00 

MATH,  PROJECTION,  DEMONSTRATOR  TRAINING  AID 

4 6910LLC00047 1 12CD-21  $1,000.00 

MATH,  ORDER  OF  DIFFERENT  I AT  I Or,',  DEM  T/A 

5 69  10LLC000472  12CD-22  $10.00 

MATH,  FINITE  ROTATION,  DEMONSTRATOP  T/A 

6 6910LLC000473  12CD-24  $50.00 

MATH,  DIRECTION  COSINE,  DEMONSTRATOR  T/A 

7 69 10LLC000474  12CD-25  $ 1,500.00 

MATH,  SKEW  LINE,  DEMONSTRATOR  TRAINING  AID 

8 69  10LLC000900  3E34-1  $1,020.00 

106MM  RECOILLESS  RIFLE,  FIRING.  MECH . TRANSP. 


. ..  Output  terminated  at  this  point  ... 
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Program  P8A  Sample  Run  Output  - Print  Option  "BM 

Using  Print  Option  "B",  the  following  represents  a sample  of  the  resulting 
output  of  Program  P8A. 


RUNP8A 

ABBR.  VEHICLE  FILE  PRINT  PROCRAM  IS  STARTING 

ENTER  SINGLE  CHARACTER  OPTION  COR  QUIT  TO  TERMINATE) 

A = PRINT  ALL  VEHICLE  RECORDS  IN  SORTED  ORDER 
B = LIST  DESCRIPTORS  ASSIGNED  TO  VEHICLE  DATA 

B 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  30TH,  OR  QUIT’ 
ENTER  TERM,  PRTR,  BOTH,  OR  OUIT 

TERM 

$$EXECUT ION: 

PAGE  : 1 


--  VEHICLES 

::::  VEHICLE  TYPFS 

01  INSTRUCTOR 

02  STATIC  GRAPHICS 

03  ANIMATED  GRAPHICS 

04  AUDIO 

05  PHYSICAL  MODELS 

06  PROCEDURAL  TRAINERS:  SYMBOLIC 

07  PROCEDURAL  TRAINERS:  PHYSICAL  BUT  NON-FljNCT  IONAL 

08  PROCEDURAL  TRAINERS:  FUNCTIONAL 

09  TASK  G SYSTEM  SIMULATORS 

10  REAL  EQUIPMENT  ITSELF 

5{::  CLASS  OF  TRAINING  OBJECT  I VF 

11  REFERENCE  KNOWLEDGE 

12  KNOWLEDGE,  TASK  SPEC  I F IC /ENABL INC 

13  TASK-SKILL  FORMATS 

14  SKILL  TRAINING 

”:{  VEHICLE  PROPERTIES 

21  VISUAL 

22  AUDITORY 

23  KINESTHETIC/VESTIBULAR 

24  TACTILE 
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::::  TYPE  OF  CONTENT  DISPLAYED 

31  TEYT-VERBAL 

32  DIAGRAMMAT IC 

33  ABSTRACTED  PICTORIAL  REPRESENTATION 

34  PICTORIAL  REPRESENT AT  IONS 

35  PHYSICAL  RE PRE SENT AT  IONS 

36  OTHER 

::::  TYPE  OF  PRESENTATIONAL  SEOUENCE 
4 1 LIBRARY  OF  FRA HE S OR  ITEMS 

42  PRESENTATION  SEOUENCE  NOT  APPLICABLE 

43  p I XED  SEOUENT I AL  FRAMES  OR  ITEMS 

44  RANDOM  SELECTION  OF  FRAME  SEOUENCE S 

45  DYNAMIC  CHANCE  OF  CONTENT  WITHIN  FRAME 

J:;:  SELECTION  SOURCE  FOR  SEOUENCINC 

51  INTERNAL  PROGRAM 

52  INSTRUCTOR 

53  STUDENT  CHOICE 

54  STUDENT  PERFORMANCE 

55  COMBINATIONS  OF  THE  ABOVE 

:::{  TYPE  OF  EXTERNAL  CONTROL  OPERATED  B^  STUDENT 

61  NOT  APPLICABLE  DIRECTLY 

62  ARTIFICIAL  OR  SYMBOLIC  RESPONSE 

63  REPRESENTATIONAL  RESPONSE  BY  SYMBOLIC  SELECTION 

64  REPRESENTATIONAL  RESPONSE  BY  DUMMY  CONTROL  ACTIVATION 

65  TASK-MANIPULATIVE  RESPONSE,  NON-DYNAMIC  IN  TIME  AND  FORCE 


PACE  : 2 

bG  TASK-MANIPULATIVE  RESPONSE,  DYNAMIC  AND  INTERACTIVE 

::::  FEEDBACK  PRE SENTAT  ION  LOGIC 

71  NOT  APPLICABLE 

72  SELECTS  NEXT  STIMULUS  ITEM  OR  SEOUENCE 

73  GIVES  EVALUATION  OF  PRECEDING  RESPONSE 

74  SELECTS  AND  PRESENTS  GUIDANCE  INFO 

::::  RESPONSE  EVALUATION  LOGIC 

81  NOT  INTERNAL -DEPENDS  ON  INSTRUCTOR  OR  STUDENT  EVALUATION 

82  EVALUATION  LIMITED  TO  STUDENT ' S I MMED I ATE  RESPONSE 
33  EVALUATION  EXTENDED  TO  A SET  OF  STUDENT  RESPONSES 

84  TOLERANCE  LIMITS  ON  ACCEPTABLE  STUDENT  RESPONSE:  FIXED 

85  TOLERANCE  LIMITS  ON  ACCEPTABLE  STUDENT  RESPONSE:  VARIABLE 
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PROGRAM  NAME  : P9 
ENTRY  POINT  : P9 
RUN  EXECUTIVES(S)  : RUNP9 

USER  OUTPUT  VIA  : Terminal,  Offline  Printer,  or  Both 

USER  PROMPTING  : Program  Level  : Output  Device  Select 

FUNCTION  : Makeup  Task  Abbreviated  Data  File,  Directory,  and 

Descriptor  File  (File  Numbers  22,  23,  and  19,  incl.) 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

SYSPRINT 

OUTPUT 

N/A  : THIS 

IS  THE  OFFLINE  PRINTER 

FA,  121,  121 

MREF 

INOUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

F,  80,  80 

TDATA 

INPUT 

21 

DASD 

ETAM/STDATA 

F,  80,  80 

TCDESC 

INPUT 

18 

DASD 

ETAM/STDSCR 

F,  80,  80 

DTASK 

OUTPUT 

23 

DASD 

ETAM/DTASK 

F,  1500,  1500 

TASKS 

OUTPUT 

22 

DASD 

ETAM/TASKS 

F,  80,  80 

TDESC 

OUTPUT 

19 

DASD 

ETAM/TDESC 

F,213,  213 

Discussion 

Program  P9  serves  to  generate  all  three  files  of  the  Abbreviated  Tasks 
data  base.  This  includes  the  data  file  (File  Number  22),  the  Tasks 
Directory  (File  Number  23),  and  the  Tasks  Descriptor  file  (File  Number 
19). 
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Listing  of  EXECUTIVE  = RUNP9 


f.TYPE  OFF 

SCOMMENT  LOAD  TASK  DATA/D IRECTORY/ DESCRIPTORS 
SCOMMENT  NO  EXEC  ENTRY  PARMS 

SCOMMENT  PROGRAM  P9  WILL  PROMPT  FOR  OUTPUT  DEVICE, 
SCOMMENT  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OUIT. 
FILEDEF  MREF  DSK  ETAM  MREF  RE  F LR  80 
FILEDEF  DIND  DSK  ETAM  DIND  RE  F LR  80  Bl.  80 
FI LEDE  p TDATA  DSK  ETAM  STDATA  RE  F LR  80  BL  80 
PI LEDE e TCDESC  DSK  ETAM  STDSCR  RE  F LR  80  BL  80 
FILEDEP  DTASK  DSK  ETAM  DTASK  RE  F LR  1500 
FILEDEF  TASKS  DSK  ETAM  TASKS  RE  F LR 
FILEDEF  TDESC  DSK  ETAM  TDESC  RE  F LR 
PILEDEF  SYSPRINT  PTR  RE  FA  I.P.  121  BL 
LOAD  P9  (CLEAR  LIBE)  PLILIB 
START  (BRIEF) 

FILEDEF  CLEAR 
SE  X IT 


BL  1500 
80  BL  80 
213  BL  213 
121 


Program  P9  Error  Messages 

Within  the  data  input  card  deck  (File  Number  21),  a given  Rate/Rank/Jobtask 
Number  cannot  be  duplicated  on  more  than  one  card.  Since  this  file  is 
sorted  by  the  contents  of  these  data  fields,  duplicates  can  be  detected 
by  Program  P9.  In  such  a case,  the  following  error  message  text  will  be 
output: 

**  DUPLICATE  STOCK  NUMBER  ON  PRECEEDING  CARD  RECORD 
WILL  BE  IGNORED  ** 


Program  P9  verifies  the  legality  of  each  of  the  descriptors  in  the  descriptor 
input  file  (File  Number  18).  The  Master  Descriptor  Index  (File  Number  3) 
is  used  for  this  purpose.  If  an  error  is  detected,  the  following  message 
is  output: 

**  ERROR  IN  TASK  NUMBER  -XXX  YY  11111-  DESCRIPTOR 
SUBSCRIPT  SSS  DOES  NOT  EXIST  ** 

where  "XXX"  is  the  Task  Rate,  "YY"  the  Rank,  and  "ZZZZZ"  the  Jobtask 
number. 
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Since  both  the  Task  data  cards  and  descriptor  cards  are  input  to 
Program  P9,  it  is  possible  for  a discrepancy  to  exist  within  the  key 
fields  of  each  (first  13  characters  of  each  card  - includes  Rate,  Rank, 
and  Jobtask  number).  If  such  discrepancies  are  detected,  the  occurance 
is  saved  within  the  Program  and  the  messages  illustrated  below  will  be 
printed  following  the  message  signifying  end-of-file  on  the  descriptor 
card  input. 

**  THE  FOLLOWING  DATA  FILE  TASK  NUMBERS 

HAVE  NO  MATCH  IN  THE  DESCRIPTOR  CARD  FILE  ** 


XXX  XXXXXXXXXXXXX 

XXX  XXXXXXXXXXXXX 

...  Etc . 


and/or  the  following 

**  THE  FOLLOWING  DESCRIPTOR  CARD  TASK  NUMBERS 
HAVE  NO  MATCH  IN  THE  DATA  FILE  ** 


YYY  YYYYYYYYYYYYY 

YYY  YYYYYYYYYYYYY 

Either  or  both  of  the  above  error  message  sequences  will  be  absent  in 
the  event  of  no  detected  errors. 


Program  P9  Specific  User  Instructions 

Both  input  files  - the  data  file  (File  Number  21)  and  the  descriptor 
input  file  (File  Number  18)  must  be  sorted  into  ascending  order  by  the 
first  13  characters  of  each  record  before  run  of  Program  P9. 

Note  that  both  of  the  required  sorts  are  accomplished  within  the 
executive  STARTUP. 
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Program  P9  Sample  Run  Output 

The  following  represents  sections  of  an  actual  run  of  Program  P9.  Content 
sufficient  to  illustrate  the  output  message  sequence  has  been  maintained. 


RUNP9 


$$$ 

TASK  DATA/DIRECTORY/DESCRIPTOR  LOAD  PROGRAM  IS  NOW  STARTING 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  OR  BOTH? 

ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 
TERM 


**  LOAD  OF  TASK  ABBREVIATED  DATA  FILE  FOLLOWS 


NUMBER 

RATE 

RANK 

TASK 

TASK  TITLE 

1 

AN 

20350 

AIRCRAFT  UNDER  EMERGENCY  CONDITIONS 

2 

AN 

20351 . 

IDENTIFY  MARKINGS  INDICATING  DANGEROUS  AREAS 

3 

AN 

20352 

IDENTIFY  TOXIC  PROPERTIES  OF  CLEANING 
MATERIALS 

4 

AN 

20368 

RECOGNIZE  ARMED  EJECTION  SEATS 

5 

AN 

24425 

HANDLE  AIRCRAFT  BATTERIES 

6 

AN 

25352 

KNOW  NAVAL  AIR  ARM  GENERAL  ORGANIZATION 

7 

AN 

25353 

IDENTIFY  NAMES,  FUNCTIONS  OF  NAVAL  AIR  GROUPS 

8 

AN 

25354 

IDENTIFY  NAVAL  AIRCRAFT  SQUADRONS 

9 

AN 

42353 

STAND  AIRCRAFT  SECURITY  WATCH 

. ..  Output  interrupted  at  this  point  ... 


The  above  text  will  be  followed  by: 


**  EOF  ON  DATA  INPUT  FILE 
CARDS  PROCESSED  : XX, XXX  ** 

**  LOAD  OF  TASK  DESCRIPTOR  CARDS  FOLLOWS  ** 

(Followed  by  print  of  Task  Descriptor  Cards) 

**  EOF  REACHED  ON  TASK  DESCRIPTOR  INPUT  FILE 
CARDS  PROCESSED  : XX, XXX  ** 
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PROGRAM  NAME 
ENTRY  POINT 

RUN  EXECUTIVES(S) 
USER  OUTPUT  VIA 
USER  PROMPTING 

FUNCTION 


P9A 

IHECMS  (Execution  Parameter  Supplied  by  Executive 
RUNP9A  at  Entry) 

RUNP9A 

Terminal,  Offline  Printer,  or  Both 

At  Executive  Level:  (1)  Output  Device  Select 

(2)  Print  Option  Select 

Print  Data  Within  or  Associated  with  the  Abbreviated 
Tasks  File  (File  Number  22) 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

F,  80,  80 

DTASK 

INPUT 

23 

DASD 

ETAM/DTASK 

F,  1500,  1500 

TASKS 

DIRECT 

22 

DASD 

ETAM/TASKS 

F,  80,  80 

SYSPRINT 

OUTPUT 

N/A  : THIS 

IS  THE  OFFLINE  PRINTER 

FA,  121,  121 

Discussion 

Program  P9A  to  printer  dump  the  contents  of  the  Abbreviated  Tasks  data 
file  (File  Number  22).  At  User  option,  the  dump  may  be  directed  to  either 
(or  both)  the  online  terminal  or  the  offline  printer. 


Listing  of  EXECUTIVE  = RUNP9A 


ST  YPE  OFF 

SCOMMENT  O.P.  PRINT  EXEC  FOR  TASKS 

SCOMMENT  ENTRY/DEVICE  PROMPTS  DONE  HERE  AND  IN  E*EC  = DEVICE 
S SPACE 

SPRINT  ABBR.  TASKS  FILE  PRINT  PROCRAM  IS  START  INC 
S SPACE 

SPRINT  ENTER  SINOLE  CHARACTER  OPTION  (OR  QUIT  TO  TERMINATE) 
SPRINT  A = PRINT  ALL  TASK  RECORDS  IN  SORTED  ORDER 
SPRINT  B = LIST  DESCRIPTORS  ASSIC-NED  TO  TASK  DATA 
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-ST PI  RREAD  ARCS 

RIF  R I EO  QUIT  ROD  IT 
RALPHA0  = R1 
RIF  R 1 tO  A CGOTO  -STP2 
RIF  Cl  EQ  B CQOTO  -STP2 
R SPACE 

RPR  I NT  UNABLE  TO  DETERMINE  ENTRY  TYPE  - TRY  AC-AIN 
RSPACE 
RGOTO  -ST PI 
-STP2  EXEC  DEVICE 

RALPMA2  = CALPHA0  ! ! RALPHA1 
-ST  PI  RSPACE 
EXEC  iJCL 

FILEDEF  FYSPRTNT  PTR  RE  FA  LR  121  BL  121 
LOAD  P9A  (CLEAR  LIBE)  PLILIB 
START  IHECMS  RALPHA2  (BRIEF) 

FILEDEP  CLEAR 
REXIT 
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Program  P9A  Specific  User  Instructions 

As  shown  in  the  samples  to  follow,  the  User  is  prompted  to  select  the  output 
device  and  the  type  of  output.  Within  Program  P9A,  the  following  output 
options  are  available: 

Option  Meaning 

A Print  the  contents  of  the  Abbreviated  Tasks  file. 

The  order  of  the  output  will  be  the  natural  order  of 

the  file,  i.e.,  by  the  contents  of  the  13-character 
field  containing  the  concatenation  of  Rate,  Rank,  and 
Jobtask  Number. 

B Print  the  descriptors  associated  with  Tasks.  The  data 

for  this  output  is  retrieved  from  the  Descriptor  Master 
Index  file  (File  Number  3). 

NOTE  - To  command  the  print  of  the  actual  descriptors 
assigned  to  each  unique  task,  use  the  "T"  Option 
of  Program  P20. 


Program  P9A  Error  Messages 

The  following  error  text  can  be  generated  by  Program  P9A: 

**  ERROR  XX  OCCURED  ; NREC  WAS  YYYYY  ** 

In  the  above  message,  "XX"  is  the  error  number  as  explained  below.  The 
quantity  "YYYYY"  indicates  the  number  of  the  input  record  that  was  being 
processed  when  the  error  was  detected. 

XX  Meaning 

01  During  processing  of  Print  Option  "B",  an  attempt  was  made 
to  read  a record  that  was  outside  the  bounds  of  the 
Descriptor  Master  Index  file  (ETAM/DIND  - File  Number  3). 

The  Master  Reference  file  (ETAM/MREF  - File  Number  1) 
indicates  the  maximum  number  of  records  available  in 

the  ETAM/DIND  file.  This  count  is  available  in  the 
fourth  (subscript  = 4)  count  of  MREF. 

02  While  processing  Print  Option  "A",  an  attempt  was  made  to 
access  a record  outside  the  bounds  of  the  Tasks  data  file 
(File  Number  22).  The  Master  Reference  file  (subscript  =11) 
indicates  the  maximum  record  number  that  can  be  accessed 

in  the  Tasks  data  file. 


D.2-64 


r 


TAEG  REPORT  NO.  40 

Program  P9A  Sample  Run  Output  - Print  Option  "A" 

The  following  listing  is  an  example  of  the  output  that  results  from 
selection  of  Print  Option  "A". 

RUNP9A 


ABBR.  TASKS  FILE  PRINT  PROGRAM  IS  STARTING 

ENTER  SINGLE  CHARACTER  OPTION  COR  OIJ IT  TO  TERMINATE) 

A = PRINT  ALL  TASK  RECORDS  IN  SORTED  ORDER 
B = LIST  DESCRIPTORS  ASSIGNED  TO  TASK  DATA 

A 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  OUIT? 

ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 

TERM 

$$EXECUTION: 

PAGE  : 1 

ITEM.  RATE  RANK  TASK  COST-PER-B ILLCT 


1 AN  20350  $0.00 

AIRCRAFT  UNDER  EMERGENCY  CONDITIONS 

2 AN  20351  $0.00 

IDENTIFY  MARKINGS  INDICATING  DANGEROUS  AREAS 

3 AN  20352  $0.00 

IDENTIFY  TOXIC  PROPERTIES  OF  CLEANING  MATERIALS 

4 AN  20368  $0.00 

RECOGNIZE  ARMED  EJECTION  SEATS 

5 AN  24425  $0.00 

HANDLE  AIRCRAFT  BATTEPIES 

6 AN  25352  $0.00 

KNOW  NAVAL  AIR  ARM  GENERAL  ORGANIZATION 

7 AN  25353  $0.00 

IDENTIFY  NAMES,  FUNCTIONS  OF  NAVAL  AIR  GROUPS 


. ..  Output  terminated  at  this  point  ... 
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Program  P9A  Sample  Run  Output  - Print  Option  "B" 

The  following  is  a sample  of  the  output  (complete)  from  Program  P9A  that 
results  from  Print  Option  "B"  selection. 


RUNP9A 

ABBR.  TASKS  FILE  PRINT  PROGRAM  IS  START  INF- 

ENTER  SINGLE  CHARACTER  OPTION  (OR  QUIT  TO  TERMINATE ) 

A = PRINT  ALL  TASK  RECORDS  IN  SORTED  ORDER 
ii  = LIST  DESCRIPTORS  ASSIGNED  TO  TASK  DATA 
13 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  OUIT*> 

ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 

TERM 

$EXECUT ION : 

PAGE  : 1 


--  TASKS 

::::  ADMINISTRATIVE  ROUTINE  PAPERWORK 

01  PORMS  FILLING 

02  DOCUMENT-FILE  MANAGEMENT 

03  DECODE-ENCODE 

04  SCREEN-FILTER  DISTRIBUTE 

05  OTHER 

. ::::  ADMINISTRATIVE  NON-ROUTINE  PAPERWORK 

11  CONSTRUCT  MESSAGES-REPORTS 

12  ANALYZE-INTERPRET 

13  CONSTRUCT  RECOMMENDATION-PROPOSAL 

14  CONSTRUCT  PLAN 

15  OTHER 

::::  ADMINISTRATIVE  OFFICE  EOUIPMENT  OPERATION 

21  TYPEWRITER 

22  TELEPHONE, ETC  . 

23  REPRODUCER 

24  COMPUTER  TERMINAL 

25  TELETYPE 

26  OTHER 
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I NTERPERSONAL  : IN  FORM-  INSTRUCT -MANAGE 

31  UR  I E F-DEBR IE  F 

32  INSTRUCT -TRAIN 

33  ASSIGN,  MONITOR,  COORDINATE 

34  EVALUATE 

35  OTHER 

TECHNICAL  PROCEDURES 

41  SEOUENTIAL 

42  STRATEGIC,  ADAPTIVE 

43  INTERPERSONAL, TEAM  MEMBER 

44  OTHER 

TECHNICAL  TYPE  OF  PROCEDURECMAIN  EMPHASIS) 

51  SCAN-DETECT:  SYMBOLIC  CINCL.  MAPS, RADAR, TRANSDUCED  SIGNALS) 

52  SCAN-DETECT:  NATURAL 

53  IDENTIFY:  SYMBOL IC C INCL . TRANSDUCED  SIGNALS) 

54  IDENTIFY:  NATURAL 

55  INTERPRET : SYMBOL  I C 

56  INTERPRET:  NATURAL 

57  PERCEPTUAL-MOTOR 

53  COGNITIVE  OPERATIONS 

59  MANUAL 

60  COMMUNICATE 

:j:{  TECHNICAL  WITH  OR  WITHOUT  EOIJIPMENT 

61  WITH  EQUIPMENT  (PAPER  IS  EOUIPMF.NT) 

62  WITHOUT  EQUIPMENT 

TECHNICAL  DECIDE 
71  DIAGNOSE -ANALYZE 


PAGE  : 2 

72  SELECT-CHOOSE 

73  UNDER  STRESS  OR  LOAD 

74  OTHER 

::::  TECHNICAL  CONSTRUCT-REPAIR,  PLAN 

81  MANUAL  CONSTRUCT  OR  REPAIR 

82  COGNITIVE  CONSTRUCT,  PLAN 

::::  TECHNICAL  TRACK-AIM-STEER 

91  APPLICABLE 

92  TIME  STRESS 

93  INFORMATION-LOAD  STRESS 


D.2-67 


TAEG  REPORT  NO.  40 


PROGRAM  NAME 
ENTRY  POINT 
RUN  EXECUTIVES(S) 
USER  OUTPUT  VIA 
USER  PROMPTING 
FUNCTION 


: PI  4 
: P14 
: RUNP14 
: Terminal  Only 
: Executive  Level  Only 

: Extract  Abbreviated  Course  File  Data  from  the  NITRAS 
MCRF  Extract  Tape 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/File type 

Format 

NITRAS 

INPUT 

24 

Tape 

Not  Applicable 

FB,  810,  3240 

DESCR 

INPUT 

5 

DASD 

ETAM/SCDESC 

Card  Image 

COURSE 

OUTPUT 

7 

DASD 

ETAM/COURSE 

Card  Image 

Discussion 

This  program  constructs  the  Abbreviated  Course  data  base.  Using  the 
CIN  numbers  as  Indicated  on  the  input  descriptor  cards  (File  Number  5, 
above),  matching  data  is  sought  on  the  NITRAS  MCRF  extract  tape.  If 
a match  occurs,  the  data  is  selected  from  the  NITRAS  tape. 

If  a CIN  number  remains  unmatched  on  a descriptor  card,  a message  is 
output  to  indicate  the  missing  data.  Samples  of  this  condition  follow. 
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Listing  of  EXECUTIVE  = RUNP14 


GTYPE  OFF 

GCOMMENT  MAKEUP  OF  ABBR.  COURSE  DATA  BASE. 

GCOMMENT  NO  ENTRY  PARMS. 

GCOMMENT  NITRAS  TAPE  MUST  BE  MOUNTED  PRIOR  TO  INVOCATION 
GCOMMENT  OF  THIS  EXEC. 

G SPACE 

GPRINT  IS  NITRAS  TAPE  ALREADY  MOUNTED  AND  MOUNT  VERIFIED? 

-ST P 1 GPRINT  RESPOND  YLS  OR  NO 
G SPACE 
GREAD  ARCS 

GIF  G 1 EO  YES  &OOTO  -YES 
GIF  G 1 EO  NO  GOOTO  -NO 

G°R  I NT  UNABLE  TO  DETERMINE  LAST  ENTP*  Tvpp  - TRY  AO-AIN 
G SPACE 
GOOTO  -STP 1 

-NO  GPRINT  COMPLETE  PROCEDURE  FOR  NITRAS  TAPE  MOUNT,  AND 
GPRINT  INVOKE  EXECUTIVE  PUNP14  AO-AIN . 

-FIN  G SPACE 

GPRINT  EXECUTIVE  RUN°1*4  IS  NOW  TERMINATING 
-OUT  G SPACE 
GPU  I T 

-YES  GSPACE 
TAPE  10  FSF  TAP2 

GIF  GINDEX0  EO  0 GGOTO  -RUN  IT 

GPRINT  TAPE  FORWARD  FILE  SKIP  BROKE;  RETURN  CODE  WAS  GINDEX0 
GOOTO  -FIN 

-RUNIT  FILEDEF  NITRAS  TAP2  RE  FB  LR  810  BL  3240  DEN  3 
FILEDEF  DESCR  DSK  ETAM  SCDESC  RE  F LR  80  BL  80 
FILEDEF  COURSE  DSK  ETAM  C0URSE2  RE  F LR  80  BL  30 
LOAD  P14  (CLEAR  I.IBE)  PLILIB 
START  (BRIEF) 

FILEDEF  « CLEAR 
CEXIT 


Program  PI 4 Error  Messages 

The  only  error  of  significance  in  this  module  results  after  reaching 
an  end-of-file  on  the  NITRAS  tape,  when  more  (one/more)  descriptor  cards 
remain  to  be  read.  An  instance  of  this  is  shown  in  the  sample  output 
below.  The  error  message  follows  the  normal  EOF  ON  NITRAS-TAPE  INPUT 
message  for  CIN  number  83000010. 
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■€ 


Program  PI 4 Sample  Run  Output 


The  following  represents  an  execution  of  Program  PI 4.  Only  a cut  of 
the  output  is  shown  in  the  interest  of  brevity.  For  a listing  of  the 
contents  of  the  actual  Course  Abbreviated  data  base,  see  the  output 
listings  that  have  resulted  from  Program  P7B  output. 


RUNP14 


$$ 


ABBREVIATED  COURSE  DATA  BASE  EXTRACT  PROGRAM 
DATE  : 04/18/77 
TIME  : 1350 


DESCRIPTOR 

CIN 

NITRAS 

COURSE 

CARD  NUM 

COUNT 

CIN 

REC  NUM 

CDP  COURSE  SHORT  TITLE 

1 

1 

A 000111 

13 

0327 

SWO  ADV  COMMAND 

2 

2 

A1 01 01 08 

213 

516U 

WRA-4  CMB  MA 

214 

5535 

WRA-4  CMB  /FINIS 

! 

215 

7654 

WRA-4  CMB  MA 

3 *** 

3 

A1 020060 

- NO  CIN  MATCH  IN 

NITRAS 

4 *** 

4 

A1 020093 

- NO  CIN  MATCH  IN 

NITRAS 

g ★★★ 

5 

A1 020095 

- NO  CIN  MATCH  IN 

NITRAS 

6 

6 

A1 930050 

794 

2213  INERT  NAV  PRINC 

7 

7 

A 2E0013 

881 

0303  TAL  PCO/PXO  ORI 

ETC  ... 


EOF  ON  NITRAS-TAPE  INPUT  ** 

132  ***  121  83000010  - NO  CIN  MATCH  IN  NITRAS 


**  EOF  ON  CARD-DESCRIPTOR  INPUT  ** 


132 

121 

50 

111 

4,127 


TOTAL  DESCRIPTOR  CARDS  READ 

TOTAL  CIN  NUMBERS  INPUT 

TOTAL  CIN  ERRORS  (NO  MATCH  IN  NITRAS) 

TOTAL  COURSES  ECTRACTED 

LAST  RECORD  READ  IN  NITRAS 


— 
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Program  PI 4 Specific  User  Instructions 


In  regards  the  NITRAS  MCRF  Extract  Tape: 


* The  tape  must  be  in  the  format  shown  in  the  File  Section 
for  File  Number  24. 

* The  tape  must  be  sorted  into  ascending  order  by  CIN  number, 
by  CDP  number.  If  an  IBM  sort  package  is  used  for  this 
purpose  on  the  360/370  Series  IBM  computers,  the  following 
OS  SORT  control  card  is  required: 

SORT  FIELDS=(5,8,CH,A,1 ,4,CH,A) ,FILSZ=E5000 

* When  the  tape  has  been  posted  to  the  NCSS  time-sharing 
vendor's  computer  site,  have  the  local  NCSS  Representative 
obtain  a NCSS  tape  library  "Bin  Number"  for  the  tape. 

* When  ready  to  process  the  tape,  precede  the  RUNP14  executive 
command  by  the  following  online  terminal  entry: 

MOUNT  TAPE  binnumber  AS  TAP2  RINGOUT 

Wait  for  a response  from  the  NCSS  I/O  Operator,  before 
proceeding  with  execution  of  RUNP14. 

* RUNP14  executive  presumes  a Standard-Label  OS  tape;  a forward- 
skip  file  is  executed  to  pass  over  the  volume  identification 
and  data  set  label.  This  is  accomplished  in  RUNP14  EXEC  line: 

TAPE  10  FSF  TAP2 

If  a non-label ed  tape  is  to  be  processed,  a change  must  be 
made  to  the  executive. 
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PROGRAM  NAME 
ENTRY  POINT 
RUN  EXECUTIVES ( S ) 
USER  OUTPUT  VIA 
USER  PROMPTING 
FUNCTION 


P16 


PI  6 

RUNP16 

Terminal  Only 
None 

Construct  Descriptor  Master  Index  File  (File  Number  3) 


Internal 
Filename 
( DDNAME ) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

MREF 

INOUT 

1 

DASD 

ETAM/MREF 

F,  80, 

DIND 

OUTPUT 

3 

DASD 

ETAM/DIND 

F,  80, 

CARDS 

INPUT 

2 

DASD 

ETAM/DICRDS 

F,  80, 

Discussion 


The  Descriptor  Master  Index  (File  Number  3)  contains  card-image  records  in 
the  following  sequence: 


Record 

Number  Contents 


0 Header  record,  containing  40  binary  halfword  counts. 
Count(l)  is  the  zero-origin  maximum  record  number  in 
the  file  (last  record  position  used). 

1-4  Course  index  contents;  these  cards  will  be  read  into  the 
PL/1  structure  called  DINDEX. 

5-8  Vehicle  index  contents;  same  conments  as  above. 


9 

13 


(Nl+1 ) 
(N2+1 ) 


12  Task  index  contents;  same  comments  as  above. 

N1  Card  records  as  read  from  the  input  file  (File  Number  2) 

descriptive  of  Course  type  descriptors. 

N2  Vehicle  descriptor  cards. 

N3  Task  descriptor  cards;  end-of-file  follows. 
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Listing  of  EXECUTIVE  = RUNP16 


RTYPE  OFF 

f.COMMENT  MAKEUP  OF  MASTER  DESCRIPTOR  INDEX  (DIND) 
GCOMMENT  NO  ENTRY  PAP.MS 

FILEDEF  CARDS  DSK  ETAM  DICRDS  RE  F LR  80  BL  80 

FILEDEF  MREF  DSK  ETAM  MREF  RE  F LP  80  BL  80 

FILEDEF  DIND  DSK  ETAM  DIND  RE  F LR  80  BL  80 

LOAD  PIG  (CLEAR  LIBE)  PLILIB 
START  (BRIEF) 

FILEDEF  CARDS  CLEAR 
FILEDEF  MREF  CLEAR 
FILEDEF  DIND  CLEAR 
SEXIT 


Program  PI 6 Error  Messages 

The  following  general  error  message  sequence  can  result  from  errors  detected 
in  the  run  of  PI 6: 

**  ERROR  NUMBER  X HAS  OCCURED  ** 

(Followed  by  descriptive  line) 

(Followed  by  the  two  standard  terminus  messages  - as  shown  on  the 
sample  run) 

In  the  message  first  line,  X has  the  following  significance;  X also 
determines  the  exact  contents  of  the  message  second  line. 


Number  X Message  Second  Line 

1 FIRST  CARD  NOT  ( — ) CARD 

2 DUPLICATE  (— ) CARD 

3 TYPE  OF  ( — ) CARD  INVALID 

4 TYPE  (**)  CARD  MUST  FOLLOW  TYPE  (— ) 

5 CATEGORY  HAS  NO  DESCRIPTORS 

6 DESCRIPTOR  NUMBER  CONVERSION  ERROR 

7 CATEGORY  TABLE  SIZE  EXCEEDED,  MAX  = 15 


D.2-73 


TAEG  REPORT  NO.  40 


Program  PI 6 Sample  Error  Message 

**  ERROR  NUMBER  2 HAS  OCCURED  ** 

DUPLICATE  (— ) CARD 

**  TOTAL  DESCRIPTOR  INDEX  CARDS  READ  : 44 

MASTER  DESCRIPTOR  INDEX  PROCESSING  IS  NOW  TERMINATING 


Program  PI 6 Sample  Run  Output 

The  following  represents  an  actual  run  of  PI 6.  The  output  is  shown  in 
its  entirety;  this  represents  the  contents  of  the  Descriptor  Index  in  the 
current  ETAM  implementation. 


RUMP 16 

$$$5$ 

MASTER  DESCRIPTOR  INDEX  CONSTRUCT  PROGRAM  IS  NOW  STAPTINC 
DESCRIPTOR  CARD  FILE  LISTING  FOLLOWS 


— COURSES 

::::  REFERENCE  KNOWLEDGE 
III  SYSTEM  PURPOSES 

02  ORGANIZATIONAL*  ROLES 

03  CONTEXTS  OF  OPERATION 

04  ORGANIZATIONAL  RULES 

05  OTHER 

::::  ENABLING  KNOWLEDGE 

10  OPERATIONAL  GOAL  CRITERIA 

11  NOMENCLATURE,  IDENTIFICATION,  LOCATION 

12  PROCEDURAL  DESCRIPTIONS 

13  .JOB  RELEVANT  FACTS,  RULES 

14  OTHER 

TASK  FORMATS 

20  PROCEDURE  FORMATS 

21  DECISION  FORMATS 

22  CONSTRUCTION  FORMATS 

23  OTHER 

::::  GROSS  .JOB  CATEGORIES 

30  OPERATIONS 

31  MAINTENANCE 

32  SERVICE  £ ADMINISTRATION 

33  COMMAND 

34  OTHCR 
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””  OBJECTIVE  TASK  VARIABLES  AS  MANIFEST  IN  THE  TRAINING 

40  EQUIPMENT  £ OBJECTS  USED:  REAL 

41  EQUIPMENT  6 OBJECTS  USED:  SIMULATED 

42  EQUIPMENT  6 OBJECTS  USED:  SYMBOLIC 

43  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  REAL 

44  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  SIMULATED 

45  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  SYMBOLIC 
40  TOOLS/ INSTRUMENTS  USED  IN  TRAINING:  REAL 

47  TOOLS/ INSTRUMENTS  USED  IN  TRAINING:  SIMULATED 
43  TOOLS/ INSTRUMENTS  USED  IN  TRAINING:  SYMBOLIC 

49  PEF/ENABL ING  INFO  IN  DOING  TASK:  APPLIED 

50  REF/ENABLING  INFO  IN  DOING  TASK:  NOT  APPLIED 

51  CRITERIA  OF  TASK  PERFORMANCE:  REAL 

52  CRITERIA  OF  TASK  PERFORMANCE:  SIMULATED 

53  CRITERIA  OF  TASK  PERFORMANCE:  SYMBOLIC 

::::  TASK  ^UNCTIONS  DOMINANT  IN  TRAINING 

60  GOAL  PROJECT  I ON 

61  SCAN-DETECT 
02  IDENTIFY 

63  INTERPRET 

64  PROCEDURE  FOLLOWING 

65  DECIDE 

60  CONSTRUCT,  PLAN 

67  TRACK 

63  MOTOR  PERFORMANCE 

69  INTERPERSONAL  INTERACTION 

70  RECALL  TASK-CYCLE  INFORMATION 

71  RECALL  ENABLING  INFORMATION 

72  ADAPT  IMPROVI SAT IONALLY/ IMPROMPTU 

73  OTHER 

::::  STAGE  OF  LEARNING 

80  ORIENTATION,  FAMILIARIZATION 

81  TASK  NOMENCLATURE,  IDENTS,  LOCATIONS,  FACTS,  RULES 

82  TASK  FORMATS  AT  CONCEPTUAL  LEVEL 
33  PROCEDURES  AT  VERBAL  LEVEL  ONLY 

84  TASK  COMPONENTS  WITH  GUIDANCE 

85  ENTIRE  JOB-TASK  PROCEDURALLY  AT  BARELY  ACCEPTABLE  MASTERY 

86  HIGHLY  PROFICIENT  IN  WORK  CONTEXT 

87  UNUSUAL  TASK  CONDITIONS 

33  PERFORMANCE  AT  KEY  MAN  LE'/EL 
89  REFRESHER  LEARNING 


--  VEHICLES 

:s::  VEHICLE  TYPES 

01  INSTRUCTOR 

02  STATIC  GRAPHICS 
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03  AN  I HATED  GRAPHICS 

04  AUDIO 

05  PHYSICAL  MODELS 

00  PROCEDURAL  TRAINERS!  SYMBOLIC 

07  PROCEDURAL  TRAINERS:  PHYSICAL  BUT  NON-FUNCTIONAL 

08  PROCEDURAL  TRAINERS:  FUNCTIONAL 

09  TASK  P.  SYSTEM  SIMULATORS 

10  REAL  EOUIPMENT  ITSELF 

::::  CLASS  OF  TRAINING  OBJECTIVE 

11  REFERENCE  KNOWLEDGE 

12  KNOWLEDGE,  TASK  SPECIFIC/ENABLING 

13  TASK-SKILL  FORMATS 

14  SKILL  TRAINING 

— VEHICLE  PROPERTIES 

21  VISUAL 

22  AUDITORY 

23  KINESTHETIC/VESTIBULAR 

24  TACTILE 

::::  TYPE  OF  CONTENT  DISPLAYED 

31  TEXT-VERBAL 

32  DIAGRAMMATIC 

33  ABSTRACTED  PICTORIAL  REPRESENTATION 

34  PICTORIAL  REPRESENTATIONS 

35  PHYSICAL  REPRESENTATIONS 
30  OTHER 

::::  TYPE  OF  PRESENTATIONAL  SEOUENCE 

41  LIBRARY  OF  FRAMES  OR  ITEMS 

42  PRESENTATION  SEOUENCE  NOT  APPLICABLE 

43  FIXED  SEQUENTIAL  FRAMES  OR  ITEMS 

44  RANDOM  SELECTION  OF  FRAME  SEQUENCES 

45  DYNAMIC  CHANGE  OF  CONTENT  WITHIN  FRAME 

””  SELECTION  SOURCE  FOR  SEQUENCING 

51  INTERNAL  PROGRAM 

52  INSTRUCTOR 

53  STUDENT  CHOICE 

54  STUDENT  PERFORMANCE 

55  COMBINATIONS  OF  THE  ABOVE 

TYPE  OF  EXTERNAL  CONTROL  OPERATED  BY  STUDENT 

61  NOT  APPLICABLE  DIRECTLY 

62  ARTIFICIAL  OR  SYMBOLIC  RESPONSE 

63  REPRESENTATIONAL  RESPONSE  BY  SYMBOLIC  SELECTION 

64  REPRESENTATIONAL  RESPONSE  BY  DUMMY  CONTROL  ACTIVATION 

65  TASK-MANIPULATIVE  RESPONSE,  NON-DYNAMIC  IN  TIME  AND  FORCE 

66  TASK-MANIPULATIVE  RESPONSE,  DYNAMIC  AND  INTERACTIVE 
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::::  FECDBACK  PRESENTATION  LOGIC 

71  NOT  APPLICABLE 

72  SELECTS  NEXT  STIMULUS  ITEM  OR  SEOtJENCE 

73  GIVES  EVALUATION  OF  PRECEDING  RESPONSE 

74  SELECTS  AND  PRESENTS  GUIDANCE  INFO 

:::J  RESPONSE  EVALUATION  LOGIC 

81  NOT  INTERNAL-DEPENDS  ON  INSTRUCTOR  OR  STUDENT  EVALUATION 

82  EVALUATION  LIMITED  TO  STUDENT’S  IMMEDIATE  RESPONSE 

83  EVALUATION  EXTENDED  TO  A SET  OF  STUDENT  RESPONSES 

84  TOLERANCE  LIMITS  ON  ACCEPTABLE  STUDENT  RESPONSE:  FIXED 

85  TOLERANCE  LIMITS  ON  ACCEPTABLE  STUDENT  RESPONSE:  VARIABLE 


— TASKS 

ADMINISTRATIVE  ROUTINE  PAPERWORK 

01  FORMS  FILLING 

02  DOCUMENT-FILE  MANAGEMENT 

03  DECODE-ENCODE 

04  SCREEN-FILTER  DISTRIBUTE 

05  OTHER 

::::  ADMINISTRATIVE  NON-ROUTINE  PAPERWORK 

11  CONSTRUCT  MESSAGES-REPORTS 

12  ANALYZE- INTERPRET 

13  CONSTRUCT  RECOMMENDATION-PROPOSAL 

14  CONSTRUCT  PLAN 

15  OTHER 

J{::  ADMINISTRATIVE  OFFICE  EQUIPMENT  OPERATION 

21  TYPEWRITER 

22  TELEPHONE, ETC . 

23  REPRODUCER 

24  COMPUTER  TERMINAL 

25  TELETYPE 
2G  OTHER 

:::!  INTERPERSONAL:  IN  FORM- INSTRUCT-MANAGE 

31  BRIEF-DEBRIEF 

32  IN STRUCT -TRAIN 

33  ASSIGN,  MONITOR,  COORDINATE 

34  EVALUATE 

35  OTHER 

::::  TECHNICAL  PROCEDURES 

41  SEQUENTIAL 

42  STRATEGIC,  ADAPTIVE 

43  INTERPERSONAL, TEAM  MEMBER 
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44  OTHER 

:::J  TECHNICAL  TYPE  OF  PROCEDURE(MAIN  EMPHASIS) 

51  SCAN-DETECT:  SYMBOLIC  (INCL.  MAPS, RADAR, TRANSDUCED  SIGNALS) 

52  SCAN-DETECT:  NATURAL 

53  IDENTIFY:  SYMBOL IC ( INCL . TRANSDUCED  SIGNALS) 

54  IDENTIFY:  NATURAL 

55  INTERPRET : SYMBOL IC 
50  INTERPRET:  NATURAL 
57  PERCEPTUAL-MOTOR 

53  COGNITIVE  OPERATIONS 

59  MANUAL 

60  COMMUNICATE 

TECHNICAL  WITH  OR  WITHOUT  EQUIPMENT 

61  WITH  EOUIPMENT  (PAPER  IS  EOlj  I PMENT ) 

62  WITHOUT  EOUIPMENT 

TECHNICAL  DECIDE 

71  DIAGNOSE -ANALYZE 

72  SELECT-CHOOSE 

73  UNDER  STRESS  OR  LOAD 

74  OTHER 

TECHNICAL  CONSTRUCT-REPAIR,  PLAN 

81  MANUAL  CONSTRUCT  OR  REPAIR 

82  COGNITIVE  CONSTRUCT,  PLAN 

TECHNICAL  TRACK-AIM-STEER 

91  APPLICABLE 

92  TIME  STRESS 

93  INFORMATION-LOAD  STRESS 

s{::  TOTAL  DISCRIPTOR  INDEX  CARDS  READ  : 181  “» 

MASTER  DESCRIPTOR  INDEX  PROCESSING  IS  NOW  TERMINATING 
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PROGRAM  NAME  : PI  7 

ENTRY  POINT  : IHECMS  (Execution  Parameter  Supplied  by  Executive  RUNP17) 
RUN  EXECUTIVES (S)  : RUNP17,  NONAME,  IFNAME,  DEVICE,  JCL2 

USER  OUTPUT  VIA  : Terminal,  Offline  Printer,  or  Both 


USER 

PROMPTING  : 

At  Executive 

Level  : 

Output  Device  Select 

FUNCTION  : 

Load  One/More  Project  Files  With  Input  Data  Supplied 
on  Cards 

Internal 

Filename 

(ODNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

SYSPRINT 

OUTPUT 

N/A  : THIS  IS  THE  OFFLINE  PRINTER 

FA,  121, 

CARDS 

INPUT 

25 

DASD 

Projectname/LOAD 

F,  80,  80 

REC 

OUTPUT 

27 

DASD 

Projectname/REC 

F,  80,  80 

REJ 

OUTPUT 

29 

DASD 

Projectname/REJ 

F,  80,  80 

REV 

OUTPUT 

28 

DASD 

Projectname/REV 

F,  80,  80 

ID 

OUTPUT 

26 

DASD 

Projectname/ID 

F,  80,  80 

The  following  files  are  not  a functional  component  of  the  Range-Of -Effects 
(ROE)  search  process.  Since  they  are  card-image  format,  they  can  be  loaded 
directly  from  Program  PI 7 and  printed  from  Program  PI. 


EXD 

OUTPUT 

33 

DASD 

Projectname/EXD 

F,  80,  80 

BPT 

OUTPUT 

34 

DASD 

Projectname/BPT 

F,  80,  80 

RKP 

OUTPUT 

35 

DASD 

Projectname/RKP 

F,  80,  80 

RRPJ 

OUTPUT 

36 

DASD 

Projectname/RRPJ 

F,  80,  80 

RRPK 

OUTPUT 

37 

DASD 

Projectname/RRPK 

F,  80,  80 

VQAL 

OUTPUT 

38 

DASD 

Projectname/VQAL 

F,  80,  80 

VARF 

OUTPUT 

39 

DASD 

Projectname/VARF 

F,  80,  80 

SCEN 

OUTPUT 

40 

DASD 

Projectname/SCEN 

F,  80,  80 

ALTP 

OUTPUT 

41 

DASD 

Projectname/ALTP 

F,  80,  80 
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Discussion 


This  Program  serves  to  generate  those  files  of  the  ETAM  system  called 
"Project  Files".  In  the  current  implementation,  only  those  of  card- 
image  format  are  of  concern.  The  following  four  card-image  files  are 
functional  in  the  Range-of-Effects  search  portion  of  the  ETAM  system 
implementation: 

File type  Usage 

ID  Project  Description 

REC  Course  Range-of-Effects  (ROE)  Search  Descriptors 

REV  Vehicle  ROE  Search  Descriptors 

REJ  Task  ROE  Search  Descriptors 


In  addition  to  the  above,  if  the  control-card  input  so  signifies,  the 
following  card- image  Project  Files  may  be  initialized: 


EXD 

Search  Extract  Defaults 

BPT 

Benefit  Pattern 

RKP 

Risk  Profile 

RRPJ 

Risk  Reduction  Projects 

RRPK 

Risk  Reduction  Packages 

VQAL 

Variables  Qualitative 

VARF 

Variable  References 

SCEN 

Scenarios 

ALTP 

Alternate  Projects 

All  of  the  above  card-image  files  can  be  printed  utilizing  Program  PI, 
either  individually,  or  in  a group  using  the  "ALL"  option. 


Listing  of  EXECUTIVE  = RUNP17 


STY  PE  OFF 

GCOM^ENT  THIS  EXEC  CONTROLS  PROJECT  FILE  IN  IT /GENERATE 
GCOMMENT  SINGLE  ENTRY  PARM  REPUIRED  - PROJECT  NAME 
G COMMENT  EXEC  = DEVICE  WILL  PROMPT  FOR  OUTPUT  DEVICE 
GIF  GINDEX  EO  1 GGOT 0 -STP1 
EXEC  f 40 NAME  RUNP17 
-STP 1 GALPMA3  = F,  1 
EXEC  IFNAME 
GSPACE 
EXEC  DEVICE 
GSPACE 
EXEC  JC1.2 

FILEDEF  SYSPRINT  PTR  RE  FA  LR  121  BL  121 
FILEDEF  CARDS  D SK  GALPHA3  LOAD  RE  F LR  80  BL  80 
LOAD  PI 7 (CLEAR  LIBE)  PLILIB 
START  IHECMS  GALPHA1  (BRIEF) 

FILEDEF  ::  CLEAR 
GEXIT 
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Program  P17  Specific  User  Instructions 

Since  this  program  processes  only  those  files  associated  with  an 
individual  ETAM  project  in  a single  run,  the  name  of  the  project  must 
be  provided  by  the  User  when  invoking  the  RUNP17  executive.  On  the 
sample  runs  to  follow,  this  is  demonstrated  using  the  ETAM  project 
name  "PN123". 

The  format  (contents)  of  the  input  control  file  (File  Number  25) 
dictates  the  loading  process  within  Program  PI 7.  See  the  File  Section 
description  of  File  Number  25  for  specific  card  formats.  The  following 
notes  apply  to  the  ordering  of  the  control  cards  within  the  input  file. 


(1)  Initialization  of  a particular  file  is  signified  in  the 
control  input  by  the  occurance  of  a control  card  with 
the  characters  "**"  in  record  positions  one  and  two. 

The  Project  File  filetype  appears  in  record  positions 
four  through  seven.  All  cards  following  this  card  up 
to  the  next  "**"  card  or  end-of-file  will  be  loaded 
into  the  indicated  filetype. 

(2)  More  than  one  filetype  may  be  initialized  within  one 
input  control  file. 

(3)  If  a given  file  is  to  be  initialized,  and  the  file  already 
exists,  then  the  old  copy  is  replaced  with  the  new. 

(4)  If  the  first  card  of  the  control  input  is  an  "INIT"  card, 
then  any  Project  File  not  mentioned  in  the  control  input 
will  be  opened  and  one  blank  record  inserted  by  Program  PI 7. 

Those  files  deemed  "Project  Files"  in  the  ETAM  system  have  been  implemented 
in  the  NCSS  time-sharing  system  as  follows: 

NCSS  Filename  NCSS  Filetype 

The  specific  ID,  REC,  REV,  Etc. 

ETAM  Project 
Name 


Program  PI 7 Error  Messages 

If  the  "INIT"  option  is  used  as  in  the  instructions  above,  then  the 
second  card  of  the  input  control  file  must  be  an  "**"  type  to  signify 
the  placement  of  the  cards  to  follow.  If  the  "INIT"  option  is  omitted, 
then  the  first  card  must  be  an  "**"  type.  If  this  condition  is  not  met, 
the  following  error  message  will  be  output: 

***  FIRST  TITLE  CARD  IS  MISSING  *** 
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Once  a "**"  title  card  has  been  detected,  the  filetype  name  on  the 
card  will  be  verified;  the  following  message  test  will  appear  if  the 
filetype  is  illegal.  This  usually  signifies  a spelling  error: 

***  TITLE  CARD  FILENAME  -filename-  IS  INVALID  *** 

The  name  in  error  is  indicated  in  the  message.  All  cards  following 
this  illegal  title  card  will  be  printed  on  the  selected  output  device(s), 
until  the  occurance  of  the  next  title  card  or  end-of-file. 

As  files  are  initialized,  Program  P17  maintains  a list  of  the  files 
that  have  been  processed  within  the  current  run.  If  an  attempt  is  made 
to  initialize  the  same  filetype  two  or  more  times  within  the  same  run, 
the  following  error  text  will  be  output: 

***  FILENAME  -filename-  IS  DUPLICATED  *** 

All  cards  following  this  error  will  be  printed  up  to  the  occurance  of 
the  next  "**"  title  card  or  end-of-file. 


Program  PI 7 Sample  Run  Output 

In  the  following  example,  the  User  has  selected  to  print  the  contents 
of  the  initialization  on  the  offline  printer.  The  text  shown  below 
appears  on  the  online  terminal.  Ten  of  the  thirteen  files  have  been 
provided  card  initialization;  three  were  initialized  with  one  blank 
card-image  record.  Since  the  blank  initialization  occured,  the  control 
input  for  this  run  contained  an  "INIT"  card  as  the  first  card. 


RUMP 17  PN123 

PROJECT  NAMED  PN123  DOES  NOT  YET  EXIST, 
IS  THIS  CORRECT?  (RESPOND  YES  OR  QUIT) 

YES 


OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  QUIT? 

ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 

PRTR 

^EXECUTION: 

PROJECT  FILE  INITIALIZATION  PROGRAM  IS  STARTING 

LOAD  OF  PROJECT  FILETYPE  .*  ID  - PROJECT  DESCRIPTION 

LOAD  OF  PROJECT  FILETYPE  : REC  - COURSES  ROE  SEARCH  ARGUMENTS 

LOAD  OF  PROJECT  FILETYPE  : UPT  - BENEFIT  PATTERN 

LOAD  OF  PROJECT  FILETYPE  : RKP  - RISK  PROFILE 

LOAD  OF  PROJECT  FILETYPE  : RRPJ  - RISK  REDUCTION  PROJECTS 
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LOAD  OF  PROJECT 
LOAD  OF  PROJECT 
LOAD  OF  PROJECT 
LOAD  OF  PROJECT 
LOAD  OF  PROJECT 


FILETYPE 

• 

• 

SCEN 

FILETYPE 

• 

• 

RRPK 

FILETYPE 

• 

• 

VQAL 

FILETYPE 

• 

• 

VARF 

FILETYPE 

• 

t 

ALTP 

SCENARIOS 

RISK  REDUCTION  PACKAGES 
VAR IADLES  QUALIFICATION 
VARIABLE  REFERENCES 
ALTERNATE  PROJECTS 


FILE  : 

REJ 

HAS 

BEEN 

FILE  : 

REV 

HAS 

BEEN 

FILE  : 

EXD 

HAS 

BEEN 

ALL 

DATASETS 

INIT 

INITIALIZED  WITH 
INITIALIZED  WITH 
INITIALIZED  WITH 
IALIZED  :::: 


ONE  Cl)  BLANK  RECORD 
ONE  (1)  BLANK  RECORD 
ONE  Cl)  BLANK  RECORD 


TOTAL  NUMBER  INPUT  CARDS  READ  : 461  :::: 


PROJECT  FILE  INITIALIZATION  PROGRAM  IS  NOW  TERMINATING 
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PROGRAM  NAME  : PI 8 


ENTRY  POINT  : P18 


RUN  EXECUTIVES(S)  : STARTUP,  START 1 , START2 
USER  OUTPUT  VIA  : None 


USER  PROMPTING  : None 


FUNCTION  : Initializes  (zeros) 
(File  Number  1) 

counts 

in  Master  Reference 

File 

Internal 
Filename 
( DDNAME ) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Filename/Filetype 

Format 

MREF 

OUTPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

Discussion 


This  file  contains  forty  (40)  binary  halfword  counts  per  record.  Currently, 
there  is  only  one  record  (one  card-image)  in  use  in  this  file.  All  forty 
quantities  are  zeroed  by  one  run  of  P18,  i.e.,  any  previous  contents  will 
be  destroyed. 


Listing  of  EXECUTIVE  = STARTUP 


P STARTUP  EXEC 
£T YPE  OFF 

GCOMMENT  THIS  IS  THE  SYSTEM  STARTUP  EXEC 
GCOMMENT  NO  INPUT  PARAMETERS  REOUIRED 
-STEP  1 STATE  ETAM  MREF  P 

GIF  SINDEX0  EO  0 GGOTO  -MDONE 
LOAD  P 18  (CLEAR  L I BE  ) PLILIB 
FILEDEF  MREF  DSK  ETAM  MREF  RE  F LR  80  BL  80 
START  (BRIEF) 

& I F GINDEX0  EO  0 GGOTO  -MGO 
-ER 1 EXEC  BROKE  1 & INDEX# 

EXEC  START  1 4 MREF 
GGOTO  -STEP2 
-MGO  EXEC  START  1 2 MREF 
GGOTO  -STEP2 

-MDONE  EXEC  START  1 1 MREF 

-STEP2  EXEC  START2  CDESC  SCDESC  2 1 8 

-STEP3  EXEC  START2  VDATA  SVDATA  3 1 13 

-STEP4  EXEC  START2  VCDESC  SVCDESC  4 1 13 
-STE05  EXEC  START2  TDATA  STOAT A 5 1 13 

-STEP6  EXEC  START 2 TDSCR  STDSCR  6 1 13 

GEXIT 
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Listing  of  EXECUTIVE  = START! 


GTYPE  OFF 
GCOMMENT  PI 
& COMMENT  P 2 
GIF  SI  EQ  5 
GIF  SI  EQ  4 
GIF  SI  EQ  3 
GIF  Cl  EQ  2 
SPRINT  PILE 
GEXIT 


IS  INTERNAL 
IS  FI  LET YPE 
GGOTO  -NYET 
GGOTO  -BUST 
Sf-OTO  -RGO 
GGOTO  -00 
G2  HAS  BEEN 


MESSAGE  ROUTER,  RANGES  1 TO  5 
NAME 


PREVIOUSLY  INITILIZED 


-GO  GPRINT  INITILIZE  OF  FILE  G2  WAS  SUCCESSFUL 
GEXIT 

-RGO  SPRINT  RE  INITILIZE  OF  FILE  G2  WAS  SUCCESSFUL 
GEXIT 

-BUST  SPRINT  FILE  S2  IN  IT  I L IZAT ION  FAILED 

G SPACE 

GEXIT 

-NYET  GPRINT  FILE  G2  CANNOT  BE  INITILIZED  (NO  INPUT  DATA) 


GEXIT 


Listing  of  EXECUTIVE  = START2 


GTYPE  off 

GCOMMENT  PI  IS  FT  OF  OFFLINE  READ  INPUT  FILE 
GCOMMENT  P2  IS  FT  OF  NEW  FILE  TO  BE  CREATED 
GCOMMENT  P3  IS  ERROR  NUMBER,  IF  BREAKS 
GCOMMENT  P4  AND  P5  ARE  THE  SORT  PARMS 
STATE  ETAM  G1  P 

GIF  GINDEX0  NE  0 GGOTO  -NONEW 
ERASE  .ETAM  G1 

G STACK  C4  G 5 
S STACK  KT 

SORT  ETAM  G1  (BRIEF) 

GIF  GINDEX0  EO  0 GGOTO  -SGO 
-ERR  EXEC  BROKE  G3  GINDEX0 
EXEC  START  1 4 S2 
GEXIT  S3 

-SGO  STATE  ETAM  G2  P 

GIF  GINDEX0  NE  0 GGOTO  -NOREG 
G INDEX  1 = 3 
ERASE  ETAM  G2  P 
GGOTO  -SNEW 
-NOREG  & INDEX  1 = 2 

% -SNEW  ALTER  .ETAM  Gl  P ETAM  G2  P 
EXEC  ST  ART  1 GINDEX1  G2 
GEXIT 

-NONEW  STATE  ETAM  G2  P 

GIF  GINDEX0  EO  0 GGOTO  -STP1 
EXEC  START  1 5 G2 
GEXIT 

-STP 1 EXEC  START  1 1 G2 
GEXIT 
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Program  PI 8 Error  Messages 
None  required. 

Program  PI 8 Sample  Run  Output 


None  generated  by  this  program. 
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PROGRAM  NAME  : P20 

ENTRY  POINT  : IHECMS  (Execution  Parameter  Supplied  by  Executive 
RUNP20  at  Entry 

RUN  EXECUTIVES(S)  : RUNP20,  DEVICE,  JCL 

USER  OUTPUT  VIA  : Terminal  Offline  Printer,  or  Both 

USER  PROMPTING  : At  Executive  Level:  (1)  Output  Device  Select 

(2)  Print  Option  Select  (C,  V,  or  T) 

FUNCTION  : Prints  Course,  Vehicle,  or  Task  Entities  and  the 
Descriptors  Associated  With  Each 


Internal 

Filename 

(DDNAME) 

Usage 

Refer 
To  File 
Reference 
Number 

Media 

External  NCSS 
Fi 1 ename/F i 1 ety pe 

Format 

SYSPRINT 

OUTPUT 

N/A  : THIS  IS  THE  OFFLINE  PRINTER 

FA,  121,  121 

MREF 

INPUT 

1 

DASD 

ETAM/MREF 

F,  80,  80 

DIND 

DIRECT 

3 

DASD 

ETAM/DIND 

F,  80,  80 

DESC 

INPUT 

6 

DASD 

ETAM/DESC 

F,  213,  213 

DCIN 

INPUT 

8 

DASD 

ETAM/DCIN 

F,  760,  760 

VDESC 

INPUT 

12 

DASD 

ETAM/VDESC 

F,  213,  213 

DVEH 

INPUT 

16 

DASD 

ETAM/DVEH 

F,  750,  750 

TDESC 

INPUT 

19 

DASD 

ETAM/TDESC 

F,  213,  213 

DTASK 

INPUT 

23 

DASD 

ETAM/DTASK 

F,  1500,  1500 

VEHS 

DIRECT 

15 

DASD 

ETAM/VEHS 

F,  80,  80 

TASKS 

DIRECT 

22 

DASD 

ETAM/TASKS 

F,  80,  80 
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Discussion 


This  program  provides  print  facilities  for  the  three  types  of  ETAM 
entities  - Courses,  Vehicles,  and  Tasks.  The  entity  type  and  output 
device  type  are  selected  by  the  User  at  the  executive  level. 

Printer  output  from  Program  P20  is  of  the  general  format:  entity 

description  followed  by  all  descriptors  assigned  to  that  particular 
entity.  The  order  of  output  for  Courses  is  by  CIN  number;  for 
Vehicles,  Stock  Number  order  is  maintained.  For  Tasks,  the  output 
is  ordered  by  the  contents  of  the  13-byte  field  of  concatenated  Rate, 
Rank,  and  Jobtask  Number. 


Listing  of  EXECUTIVE  = RUNP20 


GTYPE  OFF 

GCOMMENT  G.P.  PRINT  EXEC  FOR  COURSES,  VEHICLES,  TASKS  ; 

5 COMMENT  PRINTS  DESCRIPTORS  ASSIGNED  TO  EACH  ENT  I Tv 
SCOMMENT  ENTRY/DEVICE  PROMPTS  DONE  HERE  AND  IN  EXEC  = DEVICE 
GSPACE 

SPRINT  DESCRIPTOR  PRINT  PROGRAM  IS  STARTING 
GSPACE 

GPRINT  ENTER  SINGLE  CHARACTER  OPTION  COR  QUIT  TO  TERMINATE) 
GPRINT  C = PRINT  ALL  DESCRIPTORS  FOP  COURSES,  SORTED  RY  CIN 
GPRINT  V = PRINT  ALL  DESCRIPTORS  ASSIGNED  TO  VEHICLES 
GPRINT  T = LIST  DESCRIPTORS  ASSIGNED  TO  TASK  DATA 
-STP1  SREAD  ARCS 

GIF  G 1 EO  QUIT  GOUIT 

GALPHA0  = 61 

GIF  & 1 EO  C GCOTO  -STP2 

GIF  & 1 EO  V &r-OTO  -STP2 

GIF  G 1 EQ  T &GOTO  -STP2 

GSPACE 

GPRINT  UNABLE  TO  DETERMINE  ENTRY  TYPE  - TRY  AGAIN 
SSPACE 
SCOT 0 -STP 1 
-STP2  EXEC  DEVICE 

GALPHA2  = 6ALPHA0  ! I GALPHA1 
-STP 3 GSPACE 
EXEC  «JCL 

FILEDEF  SYSPRINT  PTR  RE  FA  LR  121  BL  121 
LOAD ' P20  (CLEAR  LIBE)  PLILIB 
START  IHECMS  CALPMA2  (BRIEF) 

FILEDEF  ” CLEAR 
6EXIT 
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Program  P20  Error  Messages 

Program  P20  can  produce  the  following  error  text  (two  lines): 

**  ERROR  NUMBER  XX  HAS  OCCUREO  ** 

(Followed  by  a descriptive  content  line  - varies  with 
message  number,  as  indicated  below) 

The  error  numbers  associated  with  the  above  message  have  the  following 
signifi cance: 

01  - The  entry  parameter  supplied  to  Program  P20  at  entry 

time  was  not  one  of  the  three  characters  "C",  "V",  or  "T". 

The  2nd  error  line  will  contain  the  actual  character (s) 
provided  as  an  entry  parameter  by  the  external  executive. 

02  - A pointer  discrepancy  has  been  detected  in  the  Descriptor 

Master  Index  file  (File  Number  3). 

The  second  error  line  containes  the  expected  and  actual 
pointer  values  of  concern. 

03  - Pointer  to  the  ETAM/DIND  Descriptor  Master  Index  file  is 

outside  the  bounds  of  the  file. 

Second  error  line  * same  as  that  for  error  number  02. 

04  - Number  of  categories  in  the  ETAM/DIND  file  is  greater 

than  15. 

Second  error  line,  same  as  for  error  number  02. 


Program  P20  Specific  User  Instructions 

Three  print  options  exist  for  the  User  in  Program  P20.  These  options  are 
exercised  by  the  selection  of  a single  character  to  be  entered  via  online 
terminal.  The  options  are  as  follows: 

Character  Meaning 

"C"  Select  Courses  and  their  related  descriptors  for 

output 

"V"  Select  Vehicles,  etc. 

"T"  Select  Tasks. 
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Program  P20  Sample  Run  Output  - Course  Selection 

Selection  of  the  "C"  options  results  in  output  as  presented  in  the 
following  sample.  Shown  are  the  prompting  sequences  and  a few  sample 
lines  to  illustrate  the  general  format  for  Course  output. 


RUNP20 

DESCRIPTOR  PRINT  PROGRAM  IS  STARTING 

ENTER  SINGLE  CHARACTER  OPTION  (OR  OUIT  TO  TERMINATE) 

C = PRINT  ALL. DESCRIPTORS  FOR  COURSES,  SORTED  BY  CIN 
V = PRINT  ALL  DESCRIPTORS  ASSIGNED  TO  VEHICLES 
T = LIST  DESCRIPTORS  ASSIGNED  TO  TASK  DATA 
C 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  OUIT? 

ENTER  TERM,  PRTR,  BOTH,  OR  QUIT 
TERM 

S $EXECUT I ON : 

PAGE  1 : COURSE  DESCRIPTOR  ASSIGNMENTS 

CIN  : A 000111 

":s  REFERENCE  KNOWLEDGE 

01  SYSTEM  PURPOSES 

03  CONTEXTS  OF  OPERATION 

04  ORGANIZATIONAL  RULES 

””  ENABLING  KNOWLEDGE 

11  NOMENCLATURE,  IDENTIFICATION,  LOCATION 

12  PROCEDURAL  DESCRIPTIONS 

13  JOB  RELEVANT  FACTS, RULES 

TASK  FORMATS 

20  PROCEDURE  FORMATS 

21  DECISION  FORMATS 

22  CONSTRUCTION  FORMATS 

:5::  GROSS  JOB  CATEGORIES 
33  COMMAND 

::::  OBJECTIVE  TASK  VARIABLES  AS  MANIFEST  IN  THE  TRAINING 
42  EOIJIPMENT  G OBJECTS  USED:  SYMBOLIC 
45  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  SYMBOLIC 
48  TOOLS/ INSTRUMENTS  USED  IN  TRAINING:  SYMBOLIC 
53  CRITERIA  OF  TASK  PERFORMANCE:  SYMBOLIC. 
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TASK  FUNCTIONS  DOMINANT  IN  TRAIN  INC- 

65  DECIDE 

66  CONSTRUCT , PLAN 
STAGE  OF  LEARNING 

32  TASK  FORMATS  AT  CONCEPTUAL  LEVEL 


CIN  : A 2E0013 

:::!  REFERENCE  KNOWLEDGE 

01  SYSTEM  PURPOSES 

02  ORGANIZATIONAL  ROLES 

03  CONTEXTS  0*  OPERATION 


. ..  Output  Interrupted  at  this  point  ... 


Program  P20  Sample  Run  Output  - Vehicles  Selection 
Following  is  an  illustration  of  the  "V"  option  output: 


P.UNP20 

DESCRIPTOR  PRINT  PROPRAM  IS  STARTING 

ENTER  SINGLE  CHARACTER  OPTION  COR  OUIT  TO  TERMINATE) 

C = PRINT  ALL  DESCRIPTORS  FOR  COURSES,  SORTED  BY  CIN 

V = PRINT  ALL  DESCRIPTORS  ASSIGNED  TO  VEHICLES 
T = LIST  DESCRIPTORS  ASSIGNED  TO  TASK  DATA 

V 

OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  QUIT** 

ENTER  TERM,  PRTR,  BOTH,  OR  OUIT 
TERM 

$$ execution: 

PAGE  1 : VEHICLE  DESCRIPTOR  ASSIGNMENTS 

691ftLLC0004f>b  / 12CD-17  / MATH,  VECTOR  ACCELERATION  DEMONSTRATOR  T/A 

VEHICLE  TYPES 

03  ANIMATED  GRAPHICS 

CLASS  OF  TRAINING  OBJECTIVE 
11  REFERENCE  KNOWLEDGE 

VEHICLE  PROPERTIES 
21  VISUAL 


. ..  Output  terminated  at  this  point  ... 
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Program  P20  Sample  Run  Output  - Tasks  Option 

Selection  of  the  "T"  option  results  inoutput  that  is  in  the  following 
format: 


RUN  P 2(1 

DLSCR  I PTOR  PRINT  "POC-RAM  IS  START  I NT 

ENTER  SINGLE  CHARACTER  OPTION  (OP  PUIT  TO  TERMINATE). 

C = PRINT  ALL  DESCRIPTORS  for  COURSES,  SORTFD  P.V  CIN 
V r PRINT  ALL  DESCRIPTORS  ASSIGNED  TO  VEHICLES 
T = LIST  DESCRIPTORS  ASSIGNED  TO  TASK  DATA 
T 

OUTPUT  TO  CO  TO  TERMINAL,  OFFLINE  PPINTEP,  BOTH,  OR  OIJIT? 

ENTER  TERM,  PRTP,  BOTH,  OR  OUIT 

TERM 

v execution: 

PACE  1 : .I0BTA5K  DESCRIPTOR  ASS  I ONMENTS 

AN  / / 2 (1 3 5 0 AIRCRAFT  UNDER  Ef*EPCENC  Y CONDITIONS 

::::  TECHNICAL  PROCEDURES 

41  SFOUENTIAL 

42  STRATECIC,  ADAPTIVE 

TECHNICAL  TYPr  OP  PPOCEDURECMA IN  EMPHASIS) 

57  pepceptual-motor 

::::  TECHNICAL  WITH  OR  WITHOUT  FOl'lPMENT 

61  WITH  EOUIPMENT  (PAPER  IS  EOUIP”ENT) 

:::!  TECHNICAL  DECIDE 

73  UNDER  STRESS  OR  LOAD 


AN  / / 2(1351  IDENT I PY  MARK  INCS  INDICATIHC  DANCEROUS  AREAS 

::::  TECHNICAL  TYPE  OP  PROCEDURF.(MA  IN  EMPHASIS) 

53  identify:  symbol ic(incl.  tpansducfd  sicnals) 


AN  / / 20352  IDENTIFY  TOXIC  PROPERTIES  OF  CLEAN  INC  MATEP I ALS 

TECHNICAL  TYPE  OF  PROCEDURE  (MAIN  EMPHAS  IS) 

54  IDENTIFY:  NATURAL 

AN  / / 20368  RECOGNIZE  ARMED  EJECTION  SEATS 

TECHNICAL  TYPE  OF  PROCFDtlRE(MA  IN  EMPHASIS) 

54  IDENTIFY:  NATURAL 

...  Output  terminated  at  this  point  ... 
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SECTION  D.3 

NCSS  EXECUTIVE  SEQUENCES  ASSOCIATED  WITH  MULTIPLE  PROGRAMS 


Each  program  of  the  ETAM  system  has  an  associated  NCSS  executive  (exec)  routine. 
These  executives  are  listed  in  the  Section  covering  the  program  of  concern. 

The  executives  within  this  Section  are,  in  general,  multiple  usage  modules 
not  associated  with  a single  ETAM  program;  a brief  description  and  a listing 
of  each  follows. 


EXECUTIVE  = BROKE 


This  is  a general-purpose  routine  used  to  print  a standardized  error  message. 
The  routine  is  designed  to  be  invoked  by  a higher-level  executive.  Return  is 
always  to  the  caller-executive  routine. 


CTYPE  OFF 

GCOMMENT  PI  IS  ERROR  NUMBER 

GCOMMENT  P2  IS  INDEX0  VALUE  THAT  CAUSED  ERROR 
G SPACE 

SPRINT  :::!  ERROR  NUMBER  G1  HAS  OCCURED  ; INDEX0  VALUE  WAS  G2  :::: 

G SPACE 

GEXIT 

TOP 


EXECUTIVE  = DEVICE 


Many  of  the  ETAM  programs  have  been  designed  to  direct  output  to  the  User's 
online  terminal,  offline  printer,  or  both.  This  executive  function  is  to 
prompt  the  User  in  the  selection  of  the  desired  device(s).  If  the  User  elects 
the  QUIT  option,  forced  termination  of  the  executive  sequence  at  all  levels 
follows. 


GTYPE  OFF 

GCOMMENT  PROMPT  INC  EXEC  FOR  DEVICE 
SCOMMENT  NO  ENTRV  ARGUMENTS  REQUIRED 
GCOMMENT  IF  OUIT  ENTEPED,  EXEC  SEPUENCE  TERMINATED 
GCOMMENT  NORMAL  RETURN  WITH  CALPHA1  SET  TO  ENTRY 
-STP 1 G SPACE 

SPRINT  OUTPUT  TO  CO  TO  TERMINAL,  OFFLINE  PRINTER,  BOTH,  OR  PUIT? 
SPRINT  ENTER  TERM,  PRTR,  BOTH,  OR  OUIT 
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-STP2  GREAD  ARCS 

GIF  G 1 EQ  QUIT  COUIT 

GALPHA1  = G 1 

GIF  G 1 EQ  BOTH  GEXIT 

GIF  G 1 EQ  PRTR  GEXIT 

GIF  G 1 EQ  TERM  GEXIT 

GSPACE 

GPRINT  UNABLE  TO  DETERMINE  ENTRY  TVPE  - TRY  AF-AIN 

GSPACE 

GCOTO  -STP2 


EXECUTIVE  = IFNAME 


Those  programs  associated  with  a specific  ETAM  project  must  be  furnished  the 
name  of  the  project.  No  operation  can  ensue,  if  the  project  name  is  omitted. 
This  executive  determines  the  existence  of  the  project  name  provided. 


P IFNAME  EXEC 
GTYPE  OFF 

G COMMENT  EXEC  TO  VALIDATE  THE  EXISTENCE  OF  A USER- 
GCOMMENT  SUPPLIED  PROJECT  NAME 

GCOMMENT  ENTRY  REOUIRES  GLOBAL  ALPHA  VARIABLE  NO . 3 
GCOMMENT  TO  BE  INITILIZED  TO  THE  PROJECT  PILE  NAME 
GSPACE 

STATE  GALPHA3  ID  P 

GIF  GINDEX0  EO  0 GF-OTO  -YES 
-NO  GPRINT  PROJECT  NAMED  GALPHA3  DOES  NOT  YET  EXIST, 
GCOTO  -ST PI 

-YES  GPRINT  PROJECT  NAMED  GALPHA3  ALREADY  EXISTS, 

-STP1  GPRINT  IS  THIS  CORRECT?  (RESPOND  ^ES  OR  OUIT) 
GSPACE 
GREAD  ARCS 
GIF  G 1 EQ  YES  GEXIT 
GIF  G 1 EQ  OUIT  GOUIT 
GSPACE 

GPRINT  CANNOT  DETERMINE  LAST  ENTRY  - TRY  AGAIN 
GSPACE 
G COT 0 -STP1 
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EXECUTIVE  = JCL 

This  executive  provides  the  FILEDEF  statements  required  by  an  ETAM  program 
making  reference  to  any  of  the  abbreviated  data  bases. 


ETYPE  OFF 

GCOMMENT  G . P . FILEDEF  EXEC  FOR  ETAM  SYSTEM  FILES 
R COMMENT  NO  ENTRY/EXIT  PARAMETERS  OR  ARGUMENTS 
FILEDEF  MREF  DSK  ETAM  MP.EF  RE  F LR  30  BL  30 
DIND  DSK  ETAM  DIND  RE  F LR  80  BL  80 
COURSE  DSK  ETAM  COURSE  RE  F LR  80  BL  30 


FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 

FILEDEF 


DC  IN 

DCDP 

DE  SC 

VEHS 

DVEH 

VDESC 

TASKS 

DTASK 

TDESC 


DSK 

DSK 

DSK 

DSK 

DSK 

DSK 

DSK 

DSK 

DSK 


ETAM 

ETAM 

ETAM 

ETAM 

ETAM 

ETAM 

ETAM 

ETAM 

ETAM 


DC  IN 
DCDP 
DE  SC 
VEHS 
DVEH 
VDESC 
TASKS 
DTASK 
TDESC 


RE 

RE 

RE 

RE 

PE 


F LR  760  BL  760 
F LR  1200  BL  1200 
F LR  213  BL  213 
F LR  80  BL  80 
f LR  750  BL  750 
RE  F LR  213  BL  213 
RE  F LR  R0  BL  80 
RE  F LR  1500  BL  1500 
RE  F LR  213  BL  213 


GEXIT 


EXECUTIVE  = JCL2 


Similar  to  the  JCL  executive,  this  executive  provides  FILEDEF  statements  for 
programs  requiring  access  to  the  files  of  a specific  ETAM  project. 


STYPE  OFF 

GCOMMENT  G.P.  FILEDEFS  FOR  PROJECT  FILES 
GCOMMENT  SINGLE  ENTRY  PARM  IS  PROJECT  FILETYPE  IN 
GCOMMENT  GLOBAL  ALPHA  VARIABLE  3 
FILEDEF  ID  DSK  6ALPMA3  ID  RE  F LR  80  BL  80 
FILEDEF  REC  DSK  GALPHA3  REC  RE  F LR  80  BL  80 

FILEDEF  REJ  DSK  CALPHA3  P.EJ  RE  F LR  80  BL  80 

FILEDEF  REV  DSK  GALPHA3  REV  RE  F LR  80  BL  80 

FILEDEF  EXD  DSK  GALPHA3  EXD  RE  F LR  80  BL  80 

FILEDEF  BPT  DSK  GALPHA3  BPT  RE  F LP.  80  BL  30 

FILEDEF  RKP  DSK  GALPHA3  RKP  RE  F LR  80  BL  80 

FILEDEF  RP.PtJ  DSK  GALPHA3  RRPJ  RE  F LR  80  BL  80 

FILEDEF  RRPK  DSK  GALPHA3  RRPK  RE  F LR  80  BL  80 

FILEDEF  VOAL  DSK  GALPHA3  VOAL  RE  F LR  80  BL  80 

FILEDEF  VARF  DSK  GALPHA3  VARF  RE  F LR  80  BL  80 

FILEDEF  SCEN  DSK  GALPHA3  SCEN  RE  F LR  80  BL  80 

FILEDEF  ALT P DSK  GALPHA3  ALTP  RE  F LR  30  BL  30 

FILEDEF  RESU  DSK  GALPHA3  RESU  RE  FB  LR  16  BL  800 
FILEDEF  REE  DSK  GALpHA3  REE  RE  PB  LR  16  BL  300 
FILEDEF  SARC  DSK  GALPHA3  SARG  RE  F LR  240  BL  240 
GEXIT 
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EXECUTIVE  = NONAME 

If  a program  associated  with  an  ETAM  project  file  is  Invoked  without 
supplying  the  name  of  the  project,  this  executive  will  diagnose  the  error. 
A message  will  be  output  to  inform  the  User,  and  action  at  all  levels  will 
be  terminated. 


STYPE  OFF 

SCOMMENT  THIS  EXEC  FOR  ERROR  MESSACE  AND  FORCED  TERMINATE 
SCOMMENT  IN  THE  EVENT  OF  NO  PROJECT  NAME  SUPPLIED. 

C COMMENT  SINGLE  ENTRY  PARM  IS  NAME  OF  EXEC  ENDING, 

SSPACE 

SPRINT  NO  PROJECT  NAME  SUPPLIED  P.Y  USER, 

SPRINT  EXEC  SI  IS  TERMINATING  ABNORMALLY  :!5{ 

S SPACE 
SQUIT 


EXECUTIVE  = ETAM 


This  is  the  ETAM  master  control  executive  as  discussed  in  Section  III.  Figure 
I 11-18  depicts  the  control  logic  implemented  into  this  executive.  The  text 
output  to  the  online  terminal  is  illustrated  in  Figure  II 1-1 9 . Following 
this  executive  listing  Is  a listing  of  NCSS  file  ETAM/TEXT1  - this  contains 
output  text  to  be  used  by  the  ETAM  executive. 


STYPE  OFF 

SCOMMENT  THIS  IS  THE  OVERALL  SYSTEM  EXEC 
SCOMMENT  NO  ENTRY  PARMS  REOUIRED 
-SI  SSPACE 

SPRINT  ENTER  PROJECT  IDENTIFIER,  E.G.,  PN123  (5  CHARACTERS) 

SSPACE 

SREAD  ARGS 

SSPACE 

SIF  S INDEX  EO  1 SGOTO  -S2 

SPRINT  CANNOT  DECODE  LAST  ENTRY  _ TRY  AGAIN 
SGOTO  -SI 

-S2  SIF  SI  EQ  QUIT  SOUIT 
SALPHA5  = SI 
STATE  SALPHA5  ID  P 

SIF  SINDEX0  EO  ff  SGOTO  -S5 
-S3  SSPACE 

SPRINT  PROJECT  FILE  DOES  NOT  EXIST 
SPRINT  GENERATE  NEW  FILE?  ? ? 

SPRINT  1)  YES 
SPRINT  2)  NO 
SPRINT  ENTER:  1 OR  2 

SSPACE 
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GREAD  ARCS 
GSPACE 

GIF  61  EQ  2 GGOTO  -SI 
GIF  G 1 EQ  QUIT  GOUIT 
GIF  61  EQ  1 GGOTO  -S4 

SPRINT  CANNOT  DECODE  LAST  ENTRY  - TRY  AGAIN 
GGOTO  -S3 

-S4  EXEC  RIJNP17  6ALPHA5 
-S5  G SPACE 

GPRINT  SELECT  OPTION. 

SPRINT  1)  ROE 
SPRINT  2)  ASSESS 
GPRINT  3)  PRINT 
SPRINT  4)  NEW  PROJECT 
GPRINT  5)  INSTRUCTIONS 
SPRINT  6)  OIJIT 
SPRINT  ENTER:  1 ...  6 

G SPACE 
GREAD  ARCS 
G SPACE 

GIF  SI  EO  OIJIT  GOUIT 
GIF  61  EO  6 GOUIT 
GIF  G 1 EQ  4 GGOTO  -SI 
GIF  61  EO  5 GGOTO  -MENU 
GIF  C 1 EQ  3 GGOTO  -PGM1 
GIF  SI  EO  2 GGOTO  -ASSESS 
GIF  6 1 EQ  1 GGOTO  -ROE 

GPRINT  CANNOT  DECODE  LAST  ENTRY  - TRY  AGAIN 
GGOTO  -S5 

-PCM1  EXEC  RUNP1  6ALPHA5 
GGOTO  -S5 

-MENU  PR  I NT F ETAM  TEXT  1 
GGOTO  -S5 
-ROE  S SPACE 

SPRINT  RANGE -OF-EFFECT,  SELECT  OPTION 

GPRINT  1)  EDIT  DESCRIPTOR 

SPRINT  2)  SEARCH 

GPRINT  3)  PRINT  SEARCH 

GPRINT  4)  EDIT  SEARCH 

SPRINT  5)  PRINT  EXTRACT 

GPRINT  6)  QUIT 

SPRINT  ENTER:  1 ...  6 

GSPACE 

GREAD  ARGS 

S SPACE 

GIF  SI  EQ  OIJIT  GOUIT 

GIF  SI  EQ  6 GOUIT 

GIF  SI  EO  1 GGOTO  -POM2 

GIF  SI  EO  2 GGOTO  -PGM3 

GIF  Cl  EO  3 GGOTO  -PGM5A 

GIF  SI  EQ  4 GGOTO  -PCM5B 

GIF  G 1 EO  5 GGOTO  -PGM5C 

GPRINT  CANNOT  DECODE  LAST  ENTRY  - TRY  AGAIN 
GGOTO  -ROE 
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-PGM 2 EXEC  RIJN P 2 8 ALPHAS 
8 CO  TO  -MP.OE 

-PC M3  EXEC  RUNP3  8ALPHA5 
SGOTO  -MROE 

-PGM5A  EXEC  RIJNP5A  6ALPHA5 
GGOTO  -MROE 

-PGM5B  EXEC  RIJNP5B  8ALPHA5 
SGOTO  -MROE 

-PGM5C  EXEC  RUNP5C  6ALPHA5 
-MROE  8 SPACE 

8 PRINT  CONTINUE  ROE  TO  SELECT  OTHER  ROUTINES?  ? ? 

CPRINT  1)  YES 

SPRINT  2)  NO 

SPRINT  ENTER:  1 OR  2 

8 SPACE 

BREAD  ARCS 

8 SPACE 

8 IF  81  EO  OUIT  SOU  IT 
8 I p 81  EO  1 6GOTO  -ROE 
81 F 81  EO  2 8 GOTO  -S5 

SPRINT  CANNOT  DECODE  LAST  ENTRY  - TRY  ACAIN 
8 GOTO  -MROE 
-ASSESS  SSPACE 

8PRINT  ASSESSMENT  - SELECT  OPTION 

SPRINT  1)  MODEL 

8 PR  I NT  2)  RISK 

SPRINT  3)  DECISION 

SPRINT  4)  FINANCIAL 

SPRINT  5)  OUIT 

SPRINT  ENTER:  1 ...  5 

SSPACE 

BREAD  ARCS 

SSPACE 

SIF  SI  EQ  OUIT  SQUIT 
8 IF  SI  EQ  5 SQUIT 
GIF  81  EQ  1 SGOTO  -NONE 
SIF  SI  EQ  2 SGOTO  -NONE 
SIF  81  EQ  3 8GOTO  -NONE 
SIF  SI  EQ  4 SGOTO  -NONE 

SPRINT  CANNOT  DECODE  LAST  ENTRY  -TRY  AGAIN 
SGOTO  -ASSESS 
-NONE  SSPACE 

SPRINT  PROGRAM  NOT  INSTALLED. 

-MASS  SSPACE 

SPRINT  CONTINUE  ASSESS  TO  SELECT  OTHER  ROUTINES?  ? ? 

SPRINT  1)  YES 

8PRINT  2)  NO 

SPRINT  ENTER:  1 OR  2 

SSPACE 

BREAD  ARGS 

SSPACE 

SIF  SI  EO  QUIT  SQUIT 
8 IF  S 1 EO  1 SGOTO  -ASSESS 
SIF  SI  EQ  2 SGOTO  -S5 

SPRINT  CANNOT  DECODE  LAST  ENTRY  - TRY  AGAIN 
SGOTO  -MASS 
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FILE  = ETAM/TEXT1 

This  file  contains  text  to  be  output  by  the  master  control  executive  named 
ETAM. 


P ETAM  TEXT  1 


ETAM  INSTRUCTIONS 

OPTIONS  1 THRU  6 PERMIT  SELECTION  OF  THE  FOLLOWING  ETAM  FUNCTIONS. 

1 WILL  CAUSE  ENTRY  INTO  THE  ETAM  RANGE -OF- EFFECT  FUNCTION  FOR: 

RUNNING  DESCRIPTOR  EDIT  PROGRAM 
SEARCHING  ABBREVIATED  DATA  BASES 
PRINTING  SEARCH  RESULTS 
RUNNING  SEARCH  EDIT  PROGRAM 
RUNNING  PRINT  EXTRACT  peOGP.AM 

2 WILL  CAUSE  ENTRY  INTO  THE  ETAM  ASSESSMENT  FUNCTION  FOR: 

SETTING  UP  MODEL  INPUTS  FOR  MODEL  RUN 
PACKAGING  RISK  REDUCTION  PROJECTS 
RUNNING  DECISION  ANALYSIS  PROGRAMS 
RUNNING  FINANCIAL  ANALYSIS  PROGRAMS 

3 WILL  PERMIT  PRINTING  OF  PROJECT  DATA  BASE  FILES 

4 WILL  CAUSE  A RETURN  TO  THE  BEGINNING  OF  THE  ETAM  CONTROL 
EXEC  SO  THAT  A DIFFERENT  PROJECT  ID  CAN  BE  ENTERED 

5 WILL  CAUSE  THESE  ETAM  INSTRUCTIONS  TO  BE  REPRINTED 

6 WILL  END  ETAM  EXEC  CONTROL  AND  RETURN  TO  NCSS  CONTROL 
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SECTION  0.4 

ETAM  FILE  FORMATS,  AS  IMPLEMENTED 


The  current  ETAM  system  has  been  implemented  to  provide  those  features  up 
to  and  including  the  Range-of-Effects  search  process.  This  ahs  resulted 
in  the  identification  of  forty-one  (41)  unique  data  files. 

In  conformity  with  the  rules  of  the  NCSS  time-sharing  vendor's  online 
system,  a file  is  made  unique  by  establishing  a unique  "filename"  and/or 
"filetype".  Two  filenames  are  used  by  the  ETAM  system,  as  follows: 


Filename  = ETAM:  For  those  applications  and  data  required  by  all 

ETAM  projects  in  common.  For  instance,  all  ETAM 
projects  access  the  same  Abbreviated  Course  data 
base. 


Filename  = Project  name: 


These  files  are  unique  to  each  given  ETAM 
project.  Convention  dictates  that  this  project 
name  be  of  the  format  "PNxxx"  where  "xxx"  is 
numeric. 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 


CONTENTS  PRINTED  BY 
FILE  FUNCTION 


ETAM/MREF 

DASD 

F,  80,  80 

Program  PI 8 (zeros  contents);  for  value  insertion, 
see  table,  below 

Not  Applicable 

Record  counts  are  saved  in  this  file  to  be  used,  as 
required,  by  various  programs  of  the  ETAM  system. 


Record 


Position 

Data  Name 

Length 

Type 

Value/Comments 

1-2 

Fixed  Binary 
Count 

2 

Fixed  Bin 

See  below,  for  meaning 

3-80 

Repeat  of  (1-2) 

78 

Fixed  Bin 

Above,  Occurs  40 
Times  Total 


This  file  contains  counts  to  be  used  as  required  by  the  various  programs  of  the 
ETAM  system.  MREF  contains  a single  80-byte  (card  image)  record;  as  indicated 
above,  space  has  been  reserved  for  forty  (40)  unique  fixed  binary  counts.  Current 
usage  is  indicated  in  the  table  below.  Indicated  are  the  programs  in  which  the 
individual  quantities  are  established  and  the  quantity  meaning.  Note  that  some 
are  0-origin  (zero-origin),  whereas  others  are  1-origin  (one-origin)  in  their 


context. 

Count 

Count  Related 

File 

Set  in 

Subscript 

Origin 

to  Filetype 

Ref 

Program 

Count  Meaning 

1 

0 

COURSE 

7 

P7 

Total  number  of  records  in 
the  Abbreviated  course  file 

2 

0 

DCIN 

8 

P7 

Maximum  subscript  used  in 
the  course  file  CIN  directory 

3 

0 

DCDP 

9 

P7 

Total  number  of  entries  In 
the  course  file  CDP  direc- 
tory; this  quantity  should 
correspond  to  the  subscript 
(1)  value,  above 

4 

0 

DIND 

3 

P16 

Highest  subscript  used  in^^ 
the  Descriptor  Master  Ind&W 
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Subscript 

Count 

Origin 

Count  Related 
to  Filetype 

File 

Ref 

5 

1 

SCDESC 

5 

6 

1 

DESC 

6 

7 

0 

VEHS 

15 

8 

0 

DVEH 

16 

9 

1 

VDESC 

12 

10 

1 

SVCDESC 

11 

11 

0 

TASKS 

22 

12 

0 

DTASK 

23 

13 

1 

TDESC 

19 

14 

1 

STDSCR 

18 

Set  in 
Program 

Count  Meaning 

P7A 

Total  number  of  course 
file  descriptor  cards 

P7A 

Total  number  course  des- 
criptor records 

P8 

Total  number  records  in 
the  Abbreviated  vehicle 
data  file 

P8 

Maximum  subscript  set  in 
the  vehicle  file  directory 

P8 

Total  number  of  records  in 
the  vehicle  descriptor  file 

P8 

Total  number  vehicle  des- 
criptor cards 

P9 

Total  number  record  in  the 
Abbreviated  vehicle  file 

P9 

Maximum  subscript  used  in 
the  task  file  directory 

P9 

Total  number  records  in  the 
task  descriptor  file 

P9 

Total  number  task  descriptor 
cards 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


2 

ETAM/DICRDS 

DASD 

F,  80,  80 
Not  Applicable 
Not  Applicable 

Input  card  deck  for  the  Descriptor  Master  Index 
Build  Program  PI 5 


Record 

Position 

Data  Name 

Length 

Jm. 

Value/Comments 

1-2 

Field  A 

2 

Char 

3 

Filler 

1 

Char 

Blank 

4-80 

Field  B 

77 

Char 

One  input  card  deck  contains  descriptor  decks  for  all  three  entities,  in 
following  order:  Courses,  Vehicles,  Tasks. 

One  descriptor  deck  for  a single  entity  is  composed  as  follows: 

Card  #1  Field  A = '**' 

Field  B = 'COURSES',  'VEHICLE',  or  'TASKS';  left  justified; 
remainder  of  Field  B is  blank 

Card  #2  Field  A * Descriptor  Number 
Field  B = Descriptor  Title 

The  combination  of  category  card  (#2,  above)  followed  by  as  many  descriptor 
cards  (#3,  above)  as  appropriate  is  repeated. 

All  descriptor  numbers  must  be  in  ascending  sort  order,  starting  with 
number  = one. 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


3 

ETAM/DIND 

DASD 

F,  80,  80 
Program  PI  6 

Program  PI 6,  P7B,  P8A,  P9A,  P20 
Descriptor  Master  Index 


Record 

Position  Data  Name  Length  Type  Value/ Comments 

The  following  is  a map  of  the  Master  Descriptor  Index 

in  memory.  File  number  3 is  card  image,  therefore,  4 80-byte  records  are 

required  to  load  the  following  structure. 

Records  Nos.  0 thru  3 are  the  Course  index;  records  4 thru  7 load  the  Vehicle 
index;  records  8 thru  11  load  the  Task  index. 

The  Master  Index  description  cards  (see  File  number  2)  are  then  loaded  into 
this  file  sequentially,  starting  at  record  location  12. 


1-2 

Start  Card  Number  2 

for  this  Entity 
Category 

3-4 

End  Card  Number  2 

for  this  Entity 

5-6 

Total  Number  of  Des-  2 
criptor  Categories 
for  this  Entity 

7-8 

Total  Number  of  Des-  2 
criptors  Active  for 
this  Entity 

9-10 

Pointer  to  1st  Cate-  2 
gory  Card  for  this 
Entity 

11-12 

Start  Descriptor  2 

Number  within  the 
Current  Category 

13-14 

Last  Descriptor  2 

Number  within 
Current  Category 

15-98 

Pos  (9-14)  Repeated,  84 
Occurs  15  Times  Total 

Fixed  Bin  Card  number  = relative 

number  within  this  file 

Fixed  Bin 
Fixed  Bin 

Fixed  Bin 

Fixed  Bin 

Fixed  Bin 

Fixed  Bin 

Fixed  Bin  Unused  portion  of  this 

array  is  zeroed 
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FILE  REFERENCE  NUMBER  : 4,  5 

NCSS  FILENAME/FILETYPE  : (4)  ETAM/CDESC;  (5)  ETAM/SCDESC 
MEDIA  : DASD 
FORMAT  : F,  80,  80 

CREATED/GENERATED  BY  : Not  Applicable 

CONTENTS  PRINTED  BY  : Not  Applicable 

FILE  FUNCTION  : Input  card  deck  with  Descriptors  as  assigned  to 
course  data 

The  CDESC  card  file  is  the  data  as  transmitted  to  the  NCSS  time-sharing  vendor. 
This  file  may  be  in  unsorted  format. 

The  SCDESC  file  has  been  sorted  into  ascending  sequence  by  CIN  number. 

This  sort  is  accomplished  in  the  executive  sequence  STARTUP. 

Record 


Position 

Data  Name 

Length 

Jm. 

Value/ Comments 

1-8 

CIN  Number 

8 

Char 

9 

Filler 

1 

Char 

Blank 

10-11 

2-Digit  Descriptor 

2 

F(2) 

P'99' 

12-80  Pos  9-11,  Repeated 

23  times 

Notes  - Max  of  24  descriptors  per  card;  if  full  card  not  required,  leave 
remainder  blank. 

Each  descriptor  is  a two-digit  number;  supply  lead  zero,  if 
appl i cable. 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


6 

ETAM/DESC 

DASD 

F,  213,  213 
Program  P7A 
Program  P20  (Option  C) 

Descriptor  data  to  match  the  contents  of  the  Abbreviated 
course  data  file  (File  Number  7) 


Record 


Position 

Data  Name 

Length 

Type 

Value/Comments 

1-8 

CIN  Number 

1 

Char 

9-13 

Filler 

5 

Char 

Blank 

14-213 

Descriptor  Flags, 

200 

Fixed  Bin 

Initially,  all  flags 

Occurs  (100)  Times  are  zeroed 


Note  - Descriptor  Flags  (subscripted  1 to  100,  incl.)  are  NON-ZERC 
for  those  descriptors  applicable  to  the  Course  keyed  by  the 
CIN  portion  of  the  record. 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


7 

ETAM/COURSE 

DASD 

F,  80,  80 
Program  PI 4 
Program  P7B 

Abbreviated  Course  Data  File 


Record 


Position 

Data  Name 

Length 

Type 

Value/ Comments 

1-4 

CDP 

4 

Char 

Blank,  if  missing 

5-12 

CIN 

8 

Char 

13-28 

Course  Short 
Title 

16 

Char 

29-32 

NOBC 

4 

Char 

33-36 

NEC 

4 

Char 

37-38 

Priority  Code 

2 

Char 

39-41 

RMS  Cost  Code 

3 

Char 

Last  3 digits  only 

42-43 

Type  Course 

2 

Char 

44 

SVC  Code 

1 

Char 

45 

Method  of 
Instruction 

1 

Char 

46 

Status  Code 

1 

Char 

47-51 

Status  Date 

5 

P 

P' (5)9’ 

52 

TRAPS  Indicator 

1 

Char 

53-57 

TPC 

5 

Char 

58-60 

Established  Attri- 
tion Rate 

3 

P 

P * 99V9 ' 

61-63 

Established  Set- 
back Rate 

3 

P 

P'99V9‘ 

64-66 

Course  Length 

3 

P 

P * 999* 

67-69 

Total  Hours 

3 

P 

P'999* 
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Record 

Position 

Data  Name 

Length 

Type 

Value/ Comments 

70-72 

Lab  Hours 

3 

P 

P 1 999 1 

73-79 

Cost  Per  AOB* 

7 

P 

P'(5)9V99' 

80 

Filler 

1 

Char 

Blank 

*This  field  currently  not  loaded;  not  available  on  the  NITRAS  MCRF 
Extract  Tape. 
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FILE  REFERENCE  NUMBER  : 8 

NCSS  FILENAME/FILETYPE  : ETAM/DCIN 

MEDIA  : DASD 

FORMAT  : F,  760,  760 

CREATED/GENERATED  BY  : Program  P7 

CONTENTS  PRINTED  BY  : Not  Applicable 

FILE  FUNCTION  : Abbreviated  Course  File  Directory,  ordered  by 
CIN  Number 


t 


Record 

Position 

Data  Name 

Length 

Jm. 

Value/ Comments 

1-8 

CIN 

8 

Char 

9-10 

Pointer  to  Relative 
Record  in  Abbrevi- 
ated Course  File 
(File  Number  7) 

2 

Fixed  Bin 

• 

11-760 

Repeat  of  Pos  1-10, 
Occurs  (76)  Times 
Total 

750 

Unused  elements  of  the 
Array  are  blanked  (CIN) 
or  zeroed  (pointer) 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


9 

ETAM/DCDP 

DASD 

F,  1200,  1200 
Program  P7 
Not  Applicable 

Abbreviated  Course  File  Directory,  ordered  by 
CDP  Number 


Record 

Position  Data  Name  Length  Type  Value/ Comments 


1-4  CDP 


4 Char 


5-6 


7-1200 


Pointer  to  Related  2 
Record  in  Abbreviated 
Course  File  (File 
Number  7) 

Repeat  of  Pos  (1-6),  1194 

Occurs  200  Times 

Total 


Fixed  Bin 


Unused  elements  in 
the  array  are  blanked 
(CDP)  and  zeroed  (pointer) 
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FILE  REFERENCE  NUMBER  : 10,  11 

NCSS  FILENAME/FILETYPE  : (10)  ETAM/VCDESC;  (11)  ETAM/SVCDESC 
MEDIA  : DASD 
FORMAT  : F,  80,  80 

CREATED/GENERATED  BY  : Not  Applicable 

CONTENTS  PRINTED  BY  : Not  Applicable 

FILE  FUNCTION  : Input  card  deck  with  Descriptors  as  assigned  to 
Vehicle  data 

The  VCDESC  card  file  is  the  Vehicle  Descriptor  data  as  transmitted  to  the 
NCSS  time-sharing  vendor.  This  file  may  be  in  unsorted  format. 

The  SVCDESC  file  has  been  sorted  into  ascending  sequence  by  Vehicle  Stock 
Number.  The  sort  is  accomplished  by  running  the  executive  sequence  STARTUP. 


Record 


Position 

Data  Name 

Length 

Jm. 

Value/ Comments 

1-13 

Vehicle  Stock 
Number 

13 

Char 

14 

Filler 

1 

Char 

Blank 

15-16 

2-Digit  Descriptor 

2 

F(2) 

p * 99 ' 

17-79 

Pos  14-16,  Repeated 
21  Times 

63 

80 

Filler 

1 

Char 

Blank 

Notes  - 

Max  of  22  descriptors  per 
leave  remainder  blank 

card;  if  full 

card 

not  required. 

- 

Each  descriptor  is  a two-digit  number; 
appl  icable 

suppy 

lead  zero,  if 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


12 

ETAM/VDESC 

DASD 

F,  213,  213 
Program  P8 

Program  P20  (Option  V) 

Descriptor  data  to  match  the  contents  of  the 
Abbreviated  Vehicle  data  file  (File  Number  15) 


Record 


Position 

Data  Name 

Length 

Jm. 

Value/ Comments 

1-13 

Vehicle  Stock 
Number 

13 

Char 

14-213 

Descriptor  Flags, 
Occurs  (100)  Times 

200 

Fixed  Bin 

Initially,  all  100 
flags  are  zeroed 

Note  - 


Descriptor  Flags  (subscripted  1 to  100,  incl.)  are  NON-ZERO  for  those 
descriptors  applicable  to  the  Vehicle  keyed  by  the  first  13  characters 
of  the  record. 


D.4-13 


TAEG  REPORT  NO.  40 


FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 


FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


13,  14 

(13)  ETAM/VDATA;  (14)  ETAM/SVDATA 


MEDIA  : DASD 


F,  80,  80 
Not  Applicable 
Not  Applicable 

Input  card  deck  with  data  for  the  load  of  the 
Abbreviated  Vehicle  data  file 


The  VDATA  card  deck  is  the  input  file  as  transmitted  to  the  NCSS  time-sharing 
vendor.  This  file  may  be  in  unsorted  order. 

The  SVDATA  file  has  been  sorted  into  ascending  sequence  by  the  Vehicle  Stock 
Number  portion  of  the  record.  This  sort  is  accomplished  by  running  the 
executive  sequence  STARTUP. 


Record 


Position 

Data  Name 

Length 

Type 

Value/ Comments 

1-13 

Vehicle  Stock 
Number 

13 

Char 

14-22 

Vehicle  Designator 

9 

Char 

23-69 

Vehicle  Nomenclature 

47 

Char 

70-79 

Vehicle  Cost 

10 

F(10,2) 

P'(8)ZVZZ';  leave 
blank,  if  unused 

80 

Filler 

1 

Char 

Blank 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


: 15 

: ETAM/VEHS 
: DASD 
: F,  80,  80 
: Program  P8 
: Program  P8A 

: Abbreviated  Vehicle  Data  File 


Record 


Position 

Data  Name 

Length 

Jm. 

1-13 

Vehicle  Stock 
Number 

13 

Char 

14-22 

Device  Designator 

9 

Char 

23-69 

Device  Name 

47 

Char 

70-79 

Device  Cost 

10 

F(10,2) 

80 

Filler 

1 

Char 

Value/ Comments 


P'(8)9V99'  This  field 
currently  not  available 
for  all  records 


Blank 
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FILE  REFERENCE  NUMBER  : 16 
NCSS  FILENAME/FILETYPE  : ETAM/DVEH 
MEDIA  : DASD 
FORMAT  : F,  750,  750 


CREATED/GENERATED  BY  : Program  P8 

CONTENTS  PRINTED  BY  : Not  Applicable 

FILE  FUNCTION  : Abbreviated  Vehicle  Directory,  ordered  by  Vehicle 
Stock  Number 


Record 

Position 

Data  Name  Length 

Type 

Value/ Comments 

1-13 

Vehicle  Stock  13 

Number 

Char 

14-15 

Pointer  to  Relative  2 
Record  in  Abbreviated 
Vehicle  File  (File 
Number  15) 

Fixed  Bin 

16-750 

Repeat  of  Pos  734 

(1-15),  above. 

Occurs  50  Times  Total 

Unused  elements  of 
the  array  are  blanked 
(Vehicle  Stock  Number) 
or  zeroed  (pointer) 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


17,  18 

(17)  ETAM/TDSCR;  (18)  ETAM/STDSCR 
DASD 

F,  80,  80 
Not  Applicable 
Not  Applicable 

Input  card  deck  with  Descriptors  as  assigned  to 
Task  data 


The  TDSCR  file  is  the  Task  Descriptor  data  as  transmitted  to  the  NCSS 
time-sharing  vendor.  This  file  may  be  in  unsorted  sequence. 

The  STDSCR  file  has  been  sorted  into  ascending  sequence  by  the  field 
represented  by  the  first  13  characters  of  the  record.  This  sort  is 
accomplished  by  running  the  executive  sequence  STARTUP. 


* 

• 

Record 

Position 

Data  Name 

Length 

1m. 

Value/ Comments 

1-5 

Rating 

5 

Char 

6-7 

Rank 

2 

Char 

8-13 

Jobtask  Number 

6 

Char 

14-15 

2-Digit  Descriptor 

2 

F(2) 

P'99' 

16 

Filler 

1 

Char 

Blank 

17-79 

Pos  14-16,  Repeated 
21  Times 

63 

80 

Filler 

1 

Char 

Blank 

Notes  - Max  of  22  descriptors  per  card;  if  full  card  not  required,  leave 
remainder  blank 

Each  descriptor  is  a two-digit  number;  supply  lead  zero,  if 
appl icable. 
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FILE  REFERENCE  NUMBER  : 
NCSS  F I LENAME/ FI LETYPE  : 
MEDIA  : 
FORMAT  : 
CREATED/GENERATED  BY  : 
CONTENTS  PRINTED  BY  : 
FILE  FUNCTION  : 


19 


ETAM/TDESC 


DASD 

F,  213,  213 
Program  P9 

Program  P20  (Option  T) 

Descriptor  data  to  match  the  contents  of  the 
Abbreviated  Task  data  file  (File  Number  22) 


Record 


Position 

Data  Name 

Length 

Im. 

1-5 

Rating 

5 

Char 

6-7 

Rank 

2 

A 

Char 

8-13 

Job  Task  Number 

6 

Char 

14-213 

Descriptor  Flags, 
Occurs  100  Times 

200 

Fixed  Bin 

Value/Comments 


Initially,  all  100 
flags  are  zeroed 


Note  - Descriptor  Flags  (subscripted  1 to  100,  incl.)  are  NON-ZERO  for 
those  descriptors  appliable  to  the  Task  keyed  by  the  first  13 
characters  of  the  record. 
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FILE  REFERENCE  NUMBER  : 20,  21 

NCSS  FILENAME/FILETYPE  : (20)  ETAM/TDATA;  (21)  ETAM/STDATA 
MEDIA  : DASD 
FORMAT  : F,  80,  80 

CREATED/GENERATED  BY  : Not  Applicable 

CONTENTS  PRINTED  BY  : Not  Applicable 

FILE  FUNCTION  : Input  data  deck  for  the  load  of  the  Abbreviated 
Task  data  file 

The  TDATA  deck  is  the  input  data  as  transmitted  to  the  NCSS  time-sharing  vendor. 
This  file  may  be  unsorted. 

The  STDATA  file  has  been  sorted  into  ascending  sequence  by  the  field  represented 
by  the  first  13  characters  of  the  record.  This  sort  is  accomplished  by  running 
the  executive  sequence  STARTUP. 

Record 


Position 

Data  Name 

Length 

1X21 

Value/Comments 

1-5 

Rating 

5 

Char 

6-7 

Rank 

2 

Char 

8-13 

Jobtask  Number 

6 

Char 

14-63 

Job  Description 

50 

Char 

64-69 

Filler 

6 

Char 

Blank 

70-79 

Billet  Cost 

10 

F(10,2) 

P' (8) ZVZZ ' ; leave 
blank,  if  unused 

80 

Filler 

1 

An 

Blank 
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FILE  REFERENCE  NUMBER  : 

22 

NCSS  FILENAME/FILETYPE  : 

ETAM/ TASKS 

MEDIA  : 

DASD 

FORMAT  : 

F,  80,  80 

CREATED/GENERATED  BY  : 

Program  P9 

CONTENTS  PRINTED  BY  : 

Program  P9A 

FILE  FUNCTION  : 

Abbreviated  Task  Data  File 

Record 

’osition 

Data  Name 

Length 

Type 

Value/ Comments 

1-5 

Rating 

5 

Char 

6-7 

Rank 

2 

Char 

8-13 

Jobtask  Number 

6 

Char 

14-63 

Job  Description 

50 

Char 

64-69 

Filler 

6 

Char 

Blank 

70-79 

Billet  Cost 

10 

F( 1 0,2) 

P'(8)9V99' 

80 


Filler 


1 


Char 


Blank 
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^ FILE  REFERENCE  NUMBER 

NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


23 

ETAM/DTASK 

DASD 

F,  1500,  1500 
Program  P9 
Not  Applicable 

Abbreviated  Task  File  Directory,  ordered  by  the  first 
13  characters  of  the  Task  File  record  (includes  RATING, 
RANK,  and  JOBTASK  Number) 


Record 

Position 

Data  Name 

Length 

Im. 

Value/ Comments 

1-5 

Rating 

5 

Char 

6-7 

Rank 

2 

Char 

8-13 

Jobtask  Indicator 

6 

Char 

14-15 

Pointer  to  Relative  2 
Record  in  Abbreviated 
Task  File  (File  #22) 

Fixed  Bin 

16-1500 

Repeat  of  (1-15), 
Above,  Occurs  100 
Times  Total 

1484 

Unused  elements  of  the 
array  are  blanked  (all 
char  fields)  or  zeroed 
(pointer) 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 


24 

Not  Applicable 
TAPE 

FB,  810,  3240,  DENSITY  = 1600BPI, 
STANDARD  LABEL 


CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


Not  Applicable 
Not  Applicable 

Abbreviated  Course  file  input  is  selected  from  this 
tape 


Record 


Position 

Data  Name 

Length 

Jm. 

1-4 

CDP 

4 

Char 

5-12 

CIN 

8 

Char 

13-28 

Course  Short  Title 

16 

Char 

29-32 

NOBC 

4 

Char 

33-36 

NEC 

4 

Char 

37-39 

Off.  Crs.  Code 

3 

Char 

40-44 

Priority  Des 

5 

Char 

45-48 

RMS  Cost  Code 

4 

Char 

49-50 

Type  Course 

2 

Char 

51 

SVC  Supp 

1 

Char 

52 

Method  Inst. 

1 

Char 

53-67 

Filler 

15 

Char 

68 

Dept-Code 

1 

Char 

69-71 

Filler 

3 

Char 

72 

Status-Code 

1 

Char 

73-75 

Status-Date 

3 

P 

76-83 

Prereq-CIN 

8 

Char 

Value/Comments 


S9(5)  COMP-3 
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Record 


Position 

Oata  Name 

Length 

Im. 

Value/Commen 

84-85 

Est.  Attr.  Rate 

2 

p 

S99V9  COMP-3 

86-87 

Est.  Stbk.  Rate 

3 

p 

S99V9  COMP-3 

88-90 

Theory  Hrs. 

3 

p 

S9(5)  COMP-3 

91-93 

Lab  Hrs. 

3 

p 

S9(5)  COMP-3 

94-96 

Filler 

3 

Char 

97 

TRAPS  Ind. 

1 

Char  . 

98-102 

TPC 

5 

Char 

103-107 

Stu.  UIC 

5 

Char 

108-112 

Staff  UIC 

5 

Char 

113-140 

CRS  Contact  Hrs 

28 

(7x) 

Contact  Ratio 

2 

P 

S99  COMP-3 

Contact  Hours 

2 

P 

S999  COMP-3 

141-143 

Total  Cont  Hrs 

3 

P 

S9(5)  COMP-3 

144 

CFY-Cross  Util 

1 

Char 

145-147 

CFY-Crs  Length 

3 

P 

S9(5)  COMP-3 

148-150 

CFY-Class  Frequency 

3 

P 

151-153 

CFY-Pers  Input 

3 

P 

154-156 

CFY-Pers  Freq 

3 

P 

157-159 

CFY-Equip  Input 

3 

P 

160-162 

CFY-Equip  Freq 

3 

P 

163-165 

CFY-Space  Input 

3 

P 

166-168 

CFY-Space  Freq 

3 

P 

169-183 

Filler 

15 

Char 

184-223 

FY+1  Capacities 

same  as  Col . 

224-263 

FY+2  Capacities 

• 

same  as  Co. 

264-286 

CFY  OF  Plan-USN 

3 

P 

S9(5)  Comp-3 

267-269 

CFY  OF  Plan-USNOB 

3 

P 

270-272 

CFY  OF  Plan-USNR 

3 

P 
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Record 

Position 

Data  Name 

Length 

Type 

Value/Comments 

273-275 

CFY  OF  Plan-USNRR 

3 

P 

276-278 

CFY  OF  Plan-USMC 

3 

P 

279-281 

CFY  OF  Plan-USCG 

3 

P 

282-284 

CFY  OF  Plan-USA 

3 

P 

285-287 

CFY  OF  Plan-USAF 

3 

P 

288-290 

CFY  OF  Plan-NATG 

3 

P 

291-293 

CFY  OF  Plan-FORNAT 

3 

P 

294-296 

CFY  OF  Plan-DOD 

3 

P 

297-299 

CFY  OF  Plan-NDOD 

3 

P 

300-302 

CFY  OF  Plan-WOM 

3 

P 

303-341 

CFY  EN  Plan 

39 

342-380 

FY+1  OF  Plan 

39 

381-419 

FY+1  EN  Plan 

39 

• 

420-458 

FY+2  OF  Plan 

39 

459-497 

FY+2  EN  Plan 

39 

These  fields  are  all 

498-536 

FY+3  OF  Plan 

39 

formatted  the  same  as 

537-575 

FY+3  EN  Plan 

39 

CFY  OF  PLAN  in  Col.  264-302 

576-614 

FY+4  OF  Plan 

39 

(13. S9( 5 ) COMP-3) 

615-653 

FY+4  EN  Plan 

39 

654-692 

FY+5  OF  Plan 

39 

693-731 

FY+5  EN  Plan 

39 

732-770 

FY+6  OF  Plan 

39 

771-809 

FY+6  EN  Plan 

39 

810 

Filler 

• 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


25 

Projectname/LOAD 

DASD 

F,  80,  80 

Not  Applicable 

Program  PI , P2 

Load  card  file  for  any/all 


files  of  a given  project 


Record 

Position  Data  Name  Length  Type  Value/ Comments 

This  is  the  load  deck  for  one  or  more  project  files;  Program  PI 7 loads  the 
indicated  files  by  reference  to  control  cards  present  in  the  load  deck.  The 
control  cards  are: 


Initialize  Card:  If  present,  must  be  the  first  card  of  the  deck.  Signals 

program  PI 7 to  load  (initialize)  all  project  files 
(card-image  only). 

1-4  Control  Field  4 Char  "INIT" 

5-80  Filler  76  Char  Blank 


File  Card:  Indicates  that  all  cards  following,  up  to  the  next  file  card  or 

the  end-of-file,  are  to  be  loaded  to  the  indicated  file. 

1-2  Control  Field  2 Char  "**" 

4-7  Filetype;  legal  4 Char 

Files  are:  ID 

REC 
REV 
REJ 
EXD 
BPT 
RKP 
RRPJ 
RRPK 
VQAL 
VARF 
SCEN 
ALTP 
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FILE  REFERENCE  NUMBER  : 26 
NCSS  FILENAME/FILETYPE  : Projectname/ID 
MEDIA  : DASD 
FORMAT  : F,  80,  80 
CREATED/GENERATED  BY  : Program  PI  7 
CONTENTS  PRINTED  BY  : Program  PI  7,  PI 

FILE  FUNCTION  : Project  Identification  Information 


Record 

Position 

Data  Name 

Length 

1m. 

Value/ Comments 

1-80 

Descriptive  infor- 
mation related  to 
a specific  project 

80 

Char 

All  of  the 
image;  the 

records  of  this  file 
format  for  the  first 

are  free-format  except  for 
card  is: 

the  first  card- 

1-1 

Project  ID 

10 

11-80 

Project  Title 

70 
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FILE  REFERENCE  NUMBER  : 27,  28,  29 

NCSS  F I LENAME/F RETYPE  : (27)  Projectname/REC 

(28)  Projectname/REV 

(29)  Projectname/REJ 


MEDIA  : DASD 


FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


F,80,80 
Program  PI  7 
Program  PI 

Search  Descriptor  Arguments  for  Courses  (REC), 
Vehicles  (REV),  and  Tasks  (REJ) 


Record 

Position  Data  Name  Length  Type 

1-10  Descriptor  Number  10  Char 

11-80  Filler  70  Char 


Value/Comments 

1/2  Digit  Number, 
Optionally  Signed; 

If  Signed,  No  Blank 
Between  Sign  and 
Leftmost  Digit 

Can  Be  Used  as 
Comment,  If  Desired- 
Not  Machine  Processable 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 
MEDIA 
FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 
FILE  FUNCTION 


30 

Projectname/SARG 

DASD 

F,  240, 240 
Program  P2 
Not  Applicable 

Search  Argument  input  to  the  Range-of-Effects 
Program  P3 


Record 

Position 

Data  Name 

Length 

Type  Value/Comments 

1-8 

below 

Record  Type 

8 

Char  See  notes. 

9-10 

Total  Number  of 
Active  Descriptor 
Search  Arguments 

2 

Fixed  Bin 

11-240 

Fixed  Bin  Array, 
Occurs  .115  Times 

230 

Fixed  Bin 

Notes  Record  type  will  be  indicated  by  one  of  the  words  'courses', 

'vehicles',  'tasks';  there  are  3 records  in  this  file,  in 
order  as  shown. 

For  each  entity  (Courses,  Vehicles  or  Tasks),  the  numeric 
array  will  be  zeroed  except  for  those  positions  which 
indicate  a search  designator.  The  subscript  of  a non- 
zero position  indicates  the  designator  number.  The  non- 
zero contents  will  be  positive  for  a normal  argument,  or 
negative  for  a "NOT"  argument. 
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FILE  REFERENCE  NUMBER 
NCSS  FILENAME/FILETYPE 

MEDIA 

FORMAT 

CREATED/GENERATED  BY 
CONTENTS  PRINTED  BY 


31,  32 

(31)  Projectname/RESU 

(32)  Projectname/REE 

DASD 

F,  16,  16 

(RESU)  by  Program  P3 
(REE)  by  Program  P5B 

PI 


FILE  FUNCTION  : RESU  is  the  un-edited  output  of  the  Range-of- 
Effects  Search  Program  P3;  REE  is  the  edited 
output  of  Program  P5B 


Record 

Position 

Data  Name  Length 

Type 

Value/ Comments 

1 

Record  Type 

1 

Char 

P ’ 9 ' 

1 = Course 

2 = Vehicle 

3 = Task 

2 

Record  Status 

1 

Char 

P'9' 

1 = Original 
Search  Result 

2 = Added  Via 
Interactive 
Program  5B 

3 = Deleted  Via 
Program  P5B 

3 

Abbreviated  Data 
Status 

1 

Char 

P ' 9' 

1 = Abbreviated 
Data  is  Available 

2 = No  Data  Match 
in  Current  Abbr 
File 

4-16 

Entity  Identifier, 
As  Follows: 

13 

Char 

Courses:  4-11  CIN 

12-15  CDP 
if  available 
16  Filler 

8 

4 

1 

Vehicles:  4-16  Veh 
Stock  No. 

13 

Tasks  : 4-8  Rating  5 

9-10  Rank  2 

11-16  Jobtask  6 

Number 
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FILE  REFERENCE  NUMBER  : 33,  34,  35,  36,  37,  38,  39,  40,  41 

NCSS  F I LENAME/F RETYPE  : (33)  Projectname/EXD 

(34)  Projectname/BPT 

(35)  Projectname/RKP 

(36)  Projectname/RRPJ 

(37)  Projectname/RRPK 

(38)  Projectname/VQAL 

(39)  Projectname/VARF 

(40)  Projectname/SCEN 

(41 ) Projectname/ALTP 

MEDIA  : DASD 
FORMAT  : F,  80,  80 
CREATED/ GENERATED  BY  : Program  PI  7 
CONTENTS  PRINTED  BY  : Program  PI 

FILE  FUNCTION  : Miscellaneous  card-image  files;  can  be  initialized 
by  Program  PI  7 

None  of  these  files  perform  a functional  task  in  the  Range-of-Effects  search 
portion  of  ETAM.  Their  function  is  explained  in  previous  section  of  this 
document  that  present  the  system  design  for  those  segments  of  ETAM  that  are 
to  follow  the  ROE  search. 

Since  these  are  card-files,  they  may  initialized  by  providing  proper  input  to 
the  Project  File  Initialization  Program  (P17). 
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SECTION  D.5 

MISCELLANEOUS  CONTROL  CARD  SOURCE  LISTINGS 


Following  are  listings  of  the  control  card  sequences  used  to  build  the  current 
ETAM  Range-of-Effects  system  at  the  NCSS  time-sharing  vendor. 

All  control  decks  are  NCSS  filename  * ETAM.  They  are  presented  within  this 
section  in  alphabetic  order  by  filetype.  Refer  to  the  File  Reference  Number 
as  indicated  in  the  following  table  for  the  specific  format  of  each  control 


deck. 

Filename 

Filetype 

File 

Reference 

Number 

Usage 

ETAM 

CDESC 

4 

i 

Course  Descriptor  data,  as  transmitted 
to  the  NCSS  time-sharing  vendor's  com- 
puter site 

ETAM 

COURSE 

7 

This  is  the  Abbreviated  Course  File; 
normally,  this  is  output  from  Program 
P14.  To  conserve  time,  use  of  the  com- 
plete NITRAS  MCRF  Extract  tape  and  P14 
were  bypassed 

ETAM 

DICRDS 

2 

Control  card  input  for  the  generation 
of  the  Descriptor  Master  Index  File 
(File  Number  3,  ETAM/DIND) 

ETAM 

TDATA 

20 

Data  load  for  the  Abbreviated  Task 
data  file  (File  Reference  22) 

ETAM 

TDSCR 

17 

Data  load  for  the  Descriptor  information 
associated  with  Task  type  entities 

ETAM 

VCDESC 

10 

Descriptor  load  data  for  entity  type 
Vehicles 

ETAM 

VDATA 

)3 

Data  load  for  the  Abbreviated  Vehicle 
data  file  (File  Reference  15) 
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SOURCE  CARO  LISTING  FOR 
OFFLINE  REAO  ETAM  COESC 


1 OFFLINE  REAO  ETAM  CDESC 


2 

H 

2E3710 

01 

02 

03 

10 

12 

13 

20 

21 

30 

40 

44 

46 

49 

52 

64 

66 

69 

72 

84 

85 

3 

H 

2E3925 

01 

02 

03 

10 

12 

13 

20 

22 

33 

40 

43 

46 

49 

52 

61 

62 

63 

66 

65 

66 

69 

72 

85 

* 

G 

2E6635 

01 

02 

03 

12 

13 

20 

21 

22 

33 

40 

41 

43 

44 

46 

47 

49 

52 

61 

62 

63 

65 

72 

84 

5 

4 

2G0016 

01 

02 

03 

12 

33 

41 

42 

44 

45 

48 

52 

53 

65 

69 

82 

84 

72 

81 

6 

J 

2G0535 

01 

02 

03 

10 

11 

12 

13 

20 

21 

33 

41 

44 

46 

49 

52 

61 

62 

63 

64 

65 

80 

7 

J 

2G0535 

82 

85 

8 

0 

3A0010 

01 

02 

03 

12 

13 

20 

21 

33 

42 

45 

48 

49 

53 

63 

65 

82 

9 

A 

8C0015 

01 

05 

12 

20 

32 

80 

10 

C6023536 

03 

11 

12 

13 

31 

40 

42 

43 

45 

46 

48 

49 

64 

65 

68 

84 

11 

J6660916 

01 

81 

03 

04 

20 

21 

n 

33 

42 

45 

48 

49 

53 

60 

65 

66 

69 

82 

80 

81 

84 

12 

E6661641 

03 

05 

11 

12 

13 

31 

40 

42 

44 

45 

46 

48 

49 

52 

53 

62 

64 

65 

13 

C6463103 

02 

03 

04 

10 

12 

31 

32 

33 

80 

14 

A6510010 

03 

11 

12 

13 

31 

80 

81 

15 

A6510020 

03 

10 

11 

12 

13 

20 

21 

31 

64 

65 

84 

16 

A6520050 

11 

12 

13 

30 

31 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

62 

63 

6* 

65 

86 

17 

A6520068 

05 

11 

12 

13 

31 

40 

44 

46 

64 

65 

84 

18 

J6520474 

03 

05 

11 

13 

30 

71 

80 

19 

G6526160 

01 

02 

03 

12 

13 

30 

33 

40 

42 

43 

45 

46 

48 

49 

71 

80 

81 

20 

L6610056 

03 

11 

12 

13 

31 

40 

43 

46 

49 

52 

62 

63 

64 

65 

85 

21 

A670001 1 

11 

12 

13 

20 

31 

61 

62 

64 

68 

85 

22 

A6700025 

05 

10 

1 1 

12 

13 

20 

32 

42 

45 

48 

64 

82 

23 

F7000010 

12 

13 

20 

li 

31 

40 

44 

46 

49 

52 

64 

66 

68 

85 

2* 

A7010027 

10 

11 

13 

22 

31 

40 

43 

46 

49 

51 

61 

62 

64 

66 

68 

86 

25 

N7010320 

03 

05 

10 

11 

12 

13 

20 

31 

40 

44 

46 

49 

51 

61 

62 

63 

64 

85 

26 

A7020026 

31 

40 

43 

46 

49 

51 

61 

62 

66 

68 

86 

45 

27 

A7100016 

01 

02 

03 

04 

10 

11 

12 

13 

20 

21 

32 

33 

42 

48 

49 

53 

62 

63 

65 

66 

82 

28 

A7200013 

02 

03 

11 

12 

13 

31 

33 

63 

64 

69 

84 

29 

A7120011 

12 

13 

20 

40 

43 

46 

49 

52 

60 

66 

68 

86 

30 

E 

2A1001 

1 1 

12 

13 

30 

40 

42 

43 

45 

46 

48 

49 

51 

53 

60 

61 

64 

65 

67 

70 

71 

86 

87 

31 

E 

2A1301 

01 

05 

10 

11 

12 

13 

20 

30 

40 

42 

43 

45 

46 

48 

49 

51 

53 

60 

61 

62 

63 

66 

65 

70 

32 

E 

2A1301 

71 

86 

33 

E 

2A1803 

01 

03 

04 

10 

11 

12 

13 

30 

40 

42 

43 

45 

46 

48 

49 

51 

53 

60 

61 

62 

64 

65 

67 

70 

34 

E 

2A1803 

86 

35 

E 

2A1902 

01 

02 

03 

05 

10 

11 

12 

13 

20 

30 

42 

45 

48 

49 

51 

60 

61 

62 

63 

66 

65 

67 

71 

72 

36 

E 

2A1902 

86 

87 

37 

C 

2A3502 

10 

13 

30 

42 

45 

48 

49 

53 

71 

89 

38 

C 

2A3921 

12 

13 

30 

42 

45 

48 

49 

53 

71 

89 

39 

c 

2A3531 

13 

30 

42 

45 

48 

50 

53 

80 

40 

c 

2A3831 

01 

12 

30 

42 

45 

48 

50 

53 

80 

41 

0 

2C0010 

01 

03 

05 

11 

12 

13 

20 

30 

42 

45 

48 

53 

72 

80 

42 

D 

2C0011 

01 

02 

03 

11 

12 

13 

30 

40 

42 

43 

45 

46 

48 

49 

51 

53 

60 

63 

64 

69 

72 

80 

85 

43 

E 

2C0012 

01 

02 

03 

11 

12 

13 

30 

42 

45 

48 

53 

72 

80 

44 

Q 

2C0015 

03 

11 

12 

13 

20 

30 

40 

43 

46 

49 

51 

64 

67 

68 

85 

45 

E 

2C0901 

01 

02 

03 

11 

12 

13 

20 

30 

40 

42 

43 

45 

46 

48 

49 

51 

53 

61 

62 

63 

64 

67 

69 

72 

46 

E 

2C0901 

85 

86 

47 

C 

2C3352 

01 

03 

05 

12 

30 

80 

48 

E 

200016 

01 

02 

03 

05 

80 

49 

E 

200028 

03 

11 

12 

13 

20 

22 

30 

41 

42 

44 

45 

47 

48 

53 

72 

60 

83 

50 

E 

200032 

01 

02 

03 

11 

12 

13 

30 

41 

42 

44 

45 

47 

52 

53 

72 

80 

82 

86 

51 

E 

200047 

01 

03 

04 

10 

12 

13 

20 

21 

30 

42 

45 

48 

53 

60 

64 

65 

66 

72 

82 

52 

E 

200072 

01 

03 

05 

12 

13 

30 

42 

45 

48 

53 

62 

63 

65 

71 

80 

84 

53 

E 

200075 

01 

03 

10 

11 

12 

13 

20 

30 

40 

44 

49 

52 

62 

63 

64 

82 

84 

54 

E 

201302 

30 

41 

44 

47 

49 

52 

61 

62 

63 

67 

71 

85 

87 

55 

E 

201601 

2E0013 

30 

41 

44 

47 

49 

52 

61 

62 

63 

64 

65 

67 

72 

66 

56 

A 

01 

02 

03 

10 

21 

33 

65 

80 

82 

57 

J 

2E0100 

01 

03 

05 

10 

11 

12 

13 

20 

21 

30 

42 

45 

48 

53 

62 

64 

65 

71 

80 

83 

58 

K 

2E1078 

01 

02 

03 

05 

10 

12 

21 

33 

42 

45 

49 

53 

65 

66 

72 

82 

59 

83010033 

02 

03 

04 

10 

11 

12 

13 

30 

32 

42 

45 

46 

49 

53 

61 

62 

63 

66 

69 

83 

84 

60 

83030051 

02 

03 

05 

10 

11 

12 

13 

20 

22 

30 

32 

40 

42 

43 

45 

46 

48 

69 

52 

62 

63 

66 

66 

61 

83030051 

68 

69 

84 

62 

A4 120010 

01 

02 

03 

05 

11 

12 

13 

20 

22 

30 

32 

40 

42 

43 

45 

46 

48 

69 

53 

62 

63 

66 

66 

63 

A4120010 

80 

81 

82 

83 

84 

64 

C42Q201 1 

03 

05 

11 

12 

13 

20 

21 

30 

32 

42 

45 

48 

49 

53 

63 

64 

65 

S3 

65 

A 

4A0025 

Q3 

12 

21 

22 

33 

80 

20 

66 

A431001 1 

01 

03 

05 

10 

11 

12 

13 

21 

22 

30 

40 

41 

43 

44 

46 

47 

69 

52 

60 

61 

62 

63 

67 

A431001 1 

64 

66 

68 

84 

68 

A4310014 

01 

03 

13 

20 

22 

30 

64 

65 

66 

72 

86 

89 
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PAGE  NUMBER  : 2 

SOURCE  CARO  LISTING  FOR 
OFFLINE  READ  ETAM  COESC 


69 

A4  3300  19 

04 

30 

40 

43 

46 

49 

51 

62 

63 

64 

68 

86 

87 

89 

70 

A4330025 

03 

12 

13 

20 

30 

40 

42 

43 

45 

46 

48 

49 

51 

61 

62 

63 

64 

66 

71 

A4910014 

01 

02 

03 

04 

10 

11 

12 

13 

20 

21 

30 

40 

42 

44 

45 

46 

47 

49 

72 

A4910014 

64 

66 

72 

84 

73 

A500001 1 

01 

03 

12 

13 

21 

32 

42 

45 

49 

53 

63 

65 

69 

72 

84 

74 

A5000028 

01 

03 

04 

11 

12 

13 

20 

32 

42 

45 

53 

62 

64 

65 

83 

75 

S5000029 

01 

02 

03 

04 

10 

12 

13 

20 

32 

44 

60 

65 

66 

84 

76 

A5000032 

01 

02 

03 

04 

10 

13 

20 

21 

32 

60 

65 

66 

72 

83 

77 

A5100012 

01 

03 

04 

11 

12 

13 

20 

32 

40 

44 

46 

49 

52 

63 

64 

68 

69 

85 

78 

C 5 16320  3 

03 

04 

1 1 

12 

13 

20 

32 

42 

45 

48 

49 

52 

64 

84 

79 

A5320015 

01 

03 

1 1 

12 

13 

20 

22 

32 

63 

64 

66 

85 

80 

A54200 1 4 

03 

11 

12 

20 

32 

64 

83 

81 

A5510019 

03 

20 

30 

40 

42 

43 

45 

46 

48 

51 

53 

64 

67 

68 

84 

02 

A5510027 

05 

11 

12 

13 

20 

31 

64 

68 

83 

84 

83 

A5510068 

11 

13 

20 

30 

40 

43 

46 

49 

51 

64 

67 

68 

85 

84 

A5700010 

03 

10 

11 

13 

20 

22 

32 

40 

43 

46 

49 

51 

63 

64 

66 

69 

85 

85 

A58000  16 

02 

03 

1 1 

12 

13 

20 

30 

32 

40 

43 

46 

49 

51 

63 

64 

68 

72 

84 

86 

E6000506 

02 

03 

04 

11 

12 

13 

20 

30 

41 

42 

44 

45 

47 

48 

52 

61 

62 

63 

87 

C6003358 

11 

12 

13 

20 

31 

42 

45 

48 

53 

64 

81 

08 

C6003472 

01 

03 

1 1 

13 

31 

80 

89 

C600383 1 

11 

12 

13 

20 

31 

42 

45 

48 

53 

64 

80 

90 

66010210 

01 

03 

1 1 

12 

13 

20 

31 

40 

42 

43 

45 

46 

48 

51 

53 

64 

83 

85 

91 

C602335  3 

05 

11 

12 

13 

31 

42 

45 

48 

53 

64 

80 

81 

92 

C6023482 

03 

11 

12 

13 

31 

42 

45 

48 

53 

64 

80 

81 

93 

J2330211 

01 

02 

03 

04 

05 

12 

13 

20 

33 

42 

45 

53 

63 

65 

82 

94 

A2420010 

05 

20 

21 

22 

30 

32 

63 

64 

65 

66 

85 

95 

J 243097  4 

03 

05 

10 

11 

12 

13 

20 

30 

40 

44 

49 

52 

62 

64 

84 

96 

A24400 1 0 

05 

10 

1 1 

12 

13 

32 

60 

62 

63 

66 

80 

97 

J25003 1 3 

01 

02 

03 

04 

10 

11 

30 

42 

45 

48 

65 

66 

80 

98 

83000010 

02 

03 

05 

10 

11 

12 

13 

20 

30 

62 

63 

64 

65 

81 

84 

99 

83000012 

03 

04 

05 

11 

12 

13 

20 

21 

30 

32 

62 

63 

64 

65 

69 

81 

83 

100 

J 1 300645 

01 

03 

1 1 

12 

30 

40 

42 

45 

64 

80 

81 

82 

101 

J 800043  3 

12 

20 

30 

40 

42 

44 

46 

49 

52 

64 

66 

85 

102 

J 3A9512 

01 

03 

04 

11 

12 

13 

20 

22 

30 

42 

45 

49 

53 

62 

63 

66 

82 

103 

P 003308 

01 

02 

03 

04 

11 

12 

20 

21 

22 

33 

42 

45 

48 

53 

65 

66 

82 

83 

104 

K 002044 

01 

03 

04 

11 

12 

13 

20 

22 

32 

64 

65 

66 

82 

84 

105 

A 000111 

01 

03 

04 

11 

12 

13 

20 

21 

22 

33 

42 

45 

48 

53 

65 

66 

82 

106 

C 003491 

01 

03 

1 1 

12 

13 

30 

42 

45 

62 

63 

80 

107 

H 005210 

01 

02 

03 

04 

21 

33 

65 

66 

80 

82 

83 

89 

108 

H 005320 

03 

12 

13 

30 

41 

42 

44 

45 

49 

52 

53 

64 

68 

84 

109 

C 003807 

01 

03 

11 

12 

30 

33 

42 

45 

48 

53 

60 

80 

no 

C 003722 

01 

03 

30 

33 

80 

ill 

A 1 020060 

03 

31 

64 

65 

71 

85 

112 

A 1020093 

03 

113 

A1010108 

30 

31 

71 

80 

83 

88 


11* 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 


84 


L 1 0 1 0024 
N 1000555 
C 1003834 
A1020095 
C 1023793 
C 12 1 301 1 
A 1 930050 
M1981006 
R2  106104 
K2210042 
J 22 1 0348 
J221 0344 
J2210357 
K2220D35 
C2222010 
C2222010 
J2210303 
J2210310 
K2330066 
J2330203 


05 

05 

01 

05 

01 

01 

05 

03 

05 

01 

03 

02 

01 

02 

01 

03 

03 

01 

01 

03 


80 
11  12 
03  05 
11  12 


31  SO 


10 


13 

20 

21 

31 

42 

45 

48 

53 

64 

65 

71 

84 

11 

12 

13 

31 

64 

65 

83 

84 

13 

20 

21 

31 

64 

65 

82 

83 

12 

13 

31 

64 

80 

81 

83 

84 

11 

12 

13 

30 

31 

40 

42 

44 

45 

46 

48 

64 

65 

80 

81 

84 

31 

40 

44 

46 

49 

52 

64 

65 

84 

85 

42 

45 

48 

64 

83 

89 

30 

42 

45 

53 

63 

64 

82 

83 

13 

30 

41 

44 

49 

53 

61 

62 

64 

65 

87 

89 

12 

13 

20 

30 

41 

42 

44 

45 

47 

48 

49 

53 

61 

62 

63 

64 

69 

85 

04 

30 

33 

62 

64 

65 

66 

69 

72 

83 

84 

30 

41 

44 

49 

52 

61 

62 

64 

67 

69 

72 

86 

04 

11 

12 

13 

20 

30 

41 

42 

44 

45 

49 

53 

61 

62 

63 

64 

67 

80  81  82 

30 

33 

42 

45 

48 

50 

62 

63 

64 

80 

04 

13 

30 

41 

44 

49 

52 

61 

62 

63 

64 

67 

69 

72 

85 

05 

13 

14 

20 

30 

40 

41 

44 

52 

61 

62 

63 

64 

81 

84 

11 

12 

13 

20 

30 

40 

44 

49 

52 

61 

62 

63 

64 

84 

85 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1* 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
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SOURCE  CARD  LISTING  FOR 

OFFLINE  READ  ETAM  COURSE 

OFFLINE  READ  ETAM  COURSE 
0327A  OOOlliSWO  ADV  COMMAND 
0303A  2E0013TAL  PCO/PXO  OR  I 
0163A  2G0016MINE  C/M  OFF 
213IA  8C0015WARE  HOUSE  OPS 
5 16UA l 010108 MR A- 6 CMB  MA 
5535AIQ10108WRA-6  CMB  /FINIS 
7656A10l6l08WRA-6  CMB  MA 
22 13A1 930050 INERT  NAV  PRINC 
6529A24 20010 IS  A 
6078A6120010EA-A 
6287A6120010EA  A 
1035A6310011EOD  BASIC  NAVY 
1036A6310316E0D  REFR  NAVY 
2060A6330019MASTER  DIVQUAL 
2082A6330025DIVER  FIRST 

206GA6910016RADIUM  REMOV  OPSOOOOOOOO  FllL  00000 

3192A5000011CI AC  958920DFCC11L  OOOOD  

3193A5000011CIAC  0000958920ECDC1 l LA70135  061301300200J 

2398A50000283M  COORD  0000951213DEAC11PA76189  033305000500( 

661MA50000283M  COORD  0000951213  C11L  00000  033300000000050000000000000 

2010A50000320VRSEA  DIPL  C00R0000000029UCDF1 1LA76120  062100100000050180170000000 
202MA50000320VRSEA  DIPL  COOROOOOOOOO  KBBF11  00000  062100500000080000000000000 
2601A50003320SEAS  DIPL  COOROOOOOOOOO  OAAFU  00000  062100000000050350000000000 
539J A5000032GVRS E A DIPL  COOR  0000  QBHF1 1LA76251  062100300000100250150000000 
6057A5100012YN  A 000023SCDA11PA76252T061301905000680002100000000 

670PA5320015C080L  PROGRAM I NG000027622 1 C16P  00000  031603200200330000000000000 


000002MB0F1 1L  00000  616223500000050210090000000 
QOOOOIFCAFI 1 00000  061110700000120000000000000 

00 00000002 BBDF1 ILA7 5191  616230500000120360260000000 
000007FCAC11  00000  616210000000190000000000000 

)0016MBBA12L  00000  061101000000720000000000000 

8335007003Q081000Q00Q000000 
33500700300810000000000000 


/0026ACBA1 1 
iCf 


30026MCBAI IL 


00000 

00000 


9230533225BBBC11LA76I82  063803202602693987500000000 
C11LA76182  063800100500670920750000000 


0000000023BBE 

536125ABJCHLA70181 


„ 063 70 20000 50 361 160680000000 

6223ABKCIILA70181  063700300051205161610000000 

380000000 

500000000 
580000000 
000000000 


8211S?§882S 


6717A56200160K  C RETURNS 
0133A5510019CAR  HAND  BAS 
3931A5510027UNREP  MECH/HYD 
0136A5510068FOR<  LIFT  OPER 
3269A5700010BROADCAST  SPEC 
6053A5800016CTO  A 
6069 A6 5 100 10BT  A /FINIS 

6260A6510010BT  A 
6138A6510020BT  1200  PSI 


000026DGBF11LA71305  061601000050120300300000000 
000031 DBKF11L  00000  033200000000050200200000000 
629505DBDC l 1 L 00000  033200050000261123680000000 
0Q0031DBPF 1 1L  OOOOQ  033200000000030060160000000 
322126  Cl 8 00000  061301000000750000000000000 
68M017QC8A31PA67305  036001705001172602700000000 
000006 JGAA1 1 P 00000  033101001000190000000000000 


0000000006 JGA All P 00000  033101001000530000000000000 
0000652305YBDC1 1BA76182  033 100300600561231 750000000 
5399A65100201200  PSI  BT  652307PCECUL  00000  063500010010611361090000000 

5226A65200500X  3ENR  6L160P  0000625212FBACULA73226  616610500000190380690000000 

66 3EA6 5 20068 SOLAR  GAS  TURB1N0900000057JEAC11LA75279T0336010000001 90380530000000 
3078A67000 11MATCH  REPAIR  181207EDAC11  OOOOOTO311203OOO0O82O0O62OOOO0OOO 

2121A6700025PREC  PHY  MEAS  182107MBDC12L  00000  031100200100781222080000000 

3202A7010027WELD/HPRES  PIPE  0000695519BDEC11LA75033  033201500200683282900000000 
337MA70 10027WEL0/HPRES  PIPE  695519  Cll  00000  033201500200560000000000000 

351 J A7020026MR/C/PH3/PRCGRND00000000238BGC11LA76085  033201201000330581030000000 
3205A7100016GRPV III  ADV  MGMT 
366FA7120011BU  MILLMORKER 

351QA7120911BU  MILLMORKER  0000590625M8DC1 1L 

000027CCCC71 


000026EEAC1 1LA75136  033500200100601980000000000 
590625ABDC1 1 


6028 A 72 0001 3 UT-J 
666Z A7200013UT-J 
9750C  003691C2 A A/C 


0g0005N3AF26LA73305  062200300000030160000000000 
000005NRAF21LA73305  0622003000000301600D0000000 


000000002 7NBCC71L  00000  033500900100930000000000000 
_ FAM  0000000005NSAF21LA73032  062200300000105530000000000 
2887C  003722TA6JF  FAM  PILOTS0000000005NEAF21LA76116  062200300000030160000000000 
9007C  003722 T A6J F FAM  PILOTS  000005NMAF21LA73305  062200300005035160000000000 

9009C  003722TA6JF  FAM  PILOTS  

9010C  003722TA6JF  FAM  PILOTS  

9738C  003722TA6JF  FAM  PILOTS0000000005NZAF21LA73305  062200300000030160000000000 

9033*  003807F6 J AWG10  MSL  000001NF AF26LA76121  

9051C  2A3502KC130F  PILOT  REF  

9751C  2A3531P3  FAM  PILOTS 
2376C  2A3831F/RF6B/J/N  FAM 
560MC  2A3831F/RF6B/N/J  FAM 

560NC  2A3831F/RF6B/N/J  FAM  

9062C  2A3831F/RE-6B/N/J  FAM  000001NI AF26LA76121  062200350000050270000000000 
2576C  2C3352UH1N  A/C  FAM/P/  0000000056N I AF26LA72275  062200300000060270000000000 

7529C1003836AAS18  INT  MAI  

7916C1023793A7A8  ATT  HEADING 
7915C 1023793 A TAB  ATT  HEADING 


. _ 062200300000060200070000000 
000005  F26LA72092  062200300000020160000000000 

00 0000000 INK AF21LA72 306  062200300000060270000000500 
000000000 1NMAF21LA76 121  062200300000050270000000000 
0000000001NSAF2 1LA76121  0622003000000S0270000050500 
00 0000000 1NFAF26LA76 121  062200300000050270000000000 


OOOOOlN IAC16LA71091  O622OO3OOOO026133OOOOOO0OOO 
710501NDAC1 1LA76060  062200300000100270230000000 
_ 71050 1NPAC11LA76060  062200300000100270230000000 

366LC1213011AMM23  RADIO  FREO  798601NSAC11LA75329  062200300001291522820090000 
566LC1213011AHM23  RADIO  FREQ0000798601NWAC1 1LA75365  062200300000891522820000000 
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69 

TO 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
83 
8* 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 


6278C2222010AC  A1 
4510C4202011MOAF  C7 
2717C5163203AVI  MAI 
321XC5163203AVI  MAI 
321ZC5163203AVI  MAI 
322BC5163203AVI  MAI 
322DC5163203AVI  MAI 
322EC5163203AVI  MAI 
4964C6003358PWR  TRN 
340CC6003472E2C  WEA 
7540C6003831RF4  AC 
7541C6003831RF4AC  MECH  MAI 
7938C6023353AH1J  ELEC  ORG 
204EC6023482E2C  VAPOR  CYCLE 
2667C6023482E2C  VAPOR  CYCLE 
2671C602353654H6077  PROP 
3410C602353654H6077  PROP 


00 006922 12FBBA11PA75056T042501 5025 00 961 962220000 000 


74122 1 PBCC 7 IL  00000 
MATER1 ALOO 0000000 1N4AF 1 1 A75260 


MATERIAL 
MATERIAL 
MATERIAL 
MATERIAL 
MATERIAL 
ROTORS 
SYS  FAM 
MECH  MAI 


000004NPAF  HLA75244 
000004N2 AF1 1 LA75244 
000004NDAF 11LA75244 
000004NUAF 11LA75244 
000004NVAF 11LA75244 
000001  F14  00000 

00000 1NUAF1 1LA75152 
00000 INF AC 14LA75060 
00000  IN  I AC14LA75060 
00000  IN IAF14LA72306 
000000000 INUAF11LA74335 
000000000  INS AF 1 1LA74335 
I N TOO 0000000  INK AF 11 LA 74 3 35 
INT  000001  NT  AFHLA74335 


042 10 100020 1236400600000000 
042200300000040320000000000 
042200300000050280000000000 
042200300000050280000000000 
042200300000050280000000000 
042200300000050280000000000 
042200300000053280000000000 
042200000000120000000000000 
042200300000050340000000000 
042200300000170750120000000 
042200300000173753120000000 
042200300000120390280000000 
042200300000050340000000000 
342200300000050340000000000 
042200300000100220280000000 
042200300000100220280000000 


T LAN BO 0000 002 609303 40000000 
TLANB00000000532431 lOOQOOOQ 
TL A NGO 000000 050 3000 70000000 
TL AN BOOOOOOOO 50 060 2 90000000 


349HC6463103CVA/CV  ALW  SUPV  000000000 1NVAF11LA74 152 
349KC6463103CVA/CV  ALW  SUPV  000000000 INUAF 1 1LA74152 
7365C6463103CVA/CV  ALW  SUPV  000001NC AF 1 1LA74 152 

9279J  2E0100WEAP0NS  OEPT  OFF0000000022GEBC2 ILA70203 
528EJ2210303ECM/ ECCM  0300000020ECCF 1 ILA72213 

534AJ2210303JAM  RECOG  C ECM  000010DBCFHLA73222 

538PJ2210310CIC  TEAM  TRAIN  0000000010ECDF11LA72192 
526KJ2210344NAVIG  CIC  TM  TRG03 000000 l 3YHHF l 1 L A74070TTL ANTO3O6666030076i40OO00OO 
528HJ2210344RA0NAV  TEAM  TRNG0000000016ECGF1 1LA70187  TL AN B0000000050 08 02 70000000 
528JJ2210348CATCC  TEAM  TRNG  0000000020EC JF1 1LA71 187  TLANBOOC 0000050020330000000 
533PJ2210357CIC  TEAM  TRNG  0000000005YHGF11LA74080TTLANT0300600030043140000000 
5380J2210357MULT I -THREAT  TNGOO 000000 14ECQF IILA70194  TL AN B00000000500602 90000000 

2637J2330203ADV  EW  OP'S  CRSEOOOOOOOO  DNAF1 1LA7532L  0000000050000000000000 

205WJ23302 USURP ACE  EW  SUPVR0000000007YE JF11LA75182TTLANT0300600 100410150000000 

EW  S UP VROO 000000 14FCCF 11LA75174 
SUP  000012AAAF11  00000 

SUP VR  000010DBCF11LA72183 

EW  S UP VROO 0000002 1000F 21  A75135 
0000071 8MF 1 1 00000 

OP/WEP  CONOOOOOOOO  DFBFll  P76082 
OP/WEP 


525UJ2330211SURFACE 
5324J23302  USURP  EW 
533ZJ2330211SURF  EW 
542N J 2 3302 11SURFACE 
2181J2430974IPC 
265VJ2500313DD963 
266CJ25303130D963 


1034 J 64409 14 MAUW  NUWEAPS 
8178J6520474EN  BASIC-NONMAG 
9740K  2E1378COORD  ASW  PT  II 
5599K2210342ASIS-LCC 
534ZK2220035CATCC  NTDS 
205YK2330066SUB  EW  OP-AOV 


TLANB05000001034103 70000000 
TLANHO 000000 080560000000000 
TL AN GOOOOOOO 100400 080000000 
TLANTO 300000 l 20300300000000 
TLAND00000000501 701 60000000 
0000000050000000000000 
TLANT  0300600050300000000000 

TLAN  0100050120600100000000 

00002 3F BCC 1 1LA72 183  TLANGOOOOOCO 190860040000000 
000000001 2TB2F21LA75209  P00220300000050210140000000 
0000000032YLJC11LA75001TP002 10300600190380320000000 
0000000009YHJF 11 LA73182TP002 10300600 120200500000000 
0000000007YEMF11LA75182TP021 10300600050190160000000 


I NT0000000007Z AAF 1 A76082 


077122500C11LA75303 
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1 OFFLINE  READ  ETAM  DICRDS 

2 --  COURSES 

3 **  REFERENCE  KNOWLEDGE 

4 01  SYSTEM  PURPOSES 

5 02  ORGANIZATIONAL  ROLES 

6 03  CONTEXTS  OF  OPERATION 

7 0*  ORGANIZATIONAL  RULES 

8 05  OTHER 

9 **  ENABLING  KNOWLEDGE 

10  10  OPERATIONAL  GOAL  CRITERIA 

11  11  NOMENCLATURE,  IDENTIFICATION,  LOCATION 

12  12  PROCEDURAL  DESCRIPTIONS 

13  13  JOB  RELEVANT  FACTS, RULES 

14  14  OTHER 

15  **  TASK  FORMATS 

16  20  PROCEDURE  FORMATS 

17  21  DECISION  FORMATS 

18  22  CONSTRUCTION  FORMATS 

19  23  OTHER 

20  **  GROSS  JOB  CATEGORIES 

21  30  OPERATIONS 

22  31  MAINTENANCE 

23  32  SERVICE  6 ADMINISTRATION 

24  33  COMMAND 

25  34  OTHER 

26  **  OBJECTIVE  TASK  VARIABLES  AS  MANIFEST  IN  THE  TRAINING 

27  AO  EQUIPMENT  G OBJECTS  USED:  REAL 

28  Al  EQUIPMENT  C OBJECTS  USED:  SIMULATED 

29  A2  EQUIPMENT  L OBJECTS  USED:  SYMBOLIC 

30  A3  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  REAL 

31  AA  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  SIMULATED 

32  A5  ENVIRONMENTS  IN  WHICH  TASK  IS  TRAINED:  SYMBOLIC 

33  A6  TOOLS/INSTRUMENTS  USED  IN  TRAINING:  REAL 

3 A A 7 TOOLS/INSTRUMENTS  USED  IN  TRAINING:  SIMULATED 

35  A8  TOOLS/INSTRUMENTS  USED  IN  TRAINING:  SYMBOLIC 

36  A9  REF/ENABLING  INFO  IN  OOING  TASK:  APPLIED 

37  50  REF/ENABLING  INFO  IN  DOING  TASK:  NOT  APPLIED 

38  51  CRITERIA  OF  TASK  PERFORMANCE:  REAL 

39  52  CRITERIA  OF  TASK  PERFORMANCE:  SIMULATED 

AO  53  CRITERIA  OF  TASK  PERFORMANCE:  SYMBOLIC 

Al  **  TASK  FUNCTIONS  DOMINANT  IN  TRAINING 

A2  60  GOAL  PROJECTION 

A3  61  SCAN-OETECT 

AA  62  IDENTIFY 

A 5 63  INTERPRET 

A6  6A  PROCEDURE  FOLLOWING 

A 7 65  DECIDE 

A8  66  CONSTRUCT,  PLAN 

A9  67  TRACK 

50  68  MOTOR  PERFORMANCE 

51  69  INTERPERSONAL  INTERACTION 

52  70  RECALL  TASK-CYCLE  INFORMATION 

53  71  RECALL  ENABLING  INFORMATION 

5A  72  ADAPT  I MPROVI SAT  I ONALLY/ I MPROMPTU 

55  73  OTHER 

56  **  STAGE  OF  LEARNING 

57  80  ORIENTATION,  FAMILIARIZATION 

58  81  TASK  NOMENCLATURE,  IDENTS,  LOCATIONS,  FACTS,  RULES 

59  82  TASK  FORMATS  AT  CONCEPTUAL  LEVEL 

60  83  PROCEDURES  AT  VERBAL  LEVEL  ONLY 

61  84  TASK  COMPONENTS  WITH  GUIDANCE 

62  85  ENTIRE  JOB-TASK  PROCEDURALLY  AT  BARELY  ACCEPTABLE  MASTERY 

63  86  HIGHLY  PROFICIENT  IN  WORK  CONTEXT 

64  87  UNUSUAL  TASK  CONDITIONS 

65  88  PERFORMANCE  AT  KEY  MAN  LEVEL 

66  89  REFRESHER  LEARNING 

67  — VEHICLES 

68  VEHICLE  TYPES 
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69 

o; 

70 

02 

71 

03 

72 

04 

73 

05 

06 

75 

07 

76 

08 

77 

09 

78 

10 

79 

** 

80 

11 

81 

12 

82 

13 

83 

14 

84 

** 

85 

21 

86 

22 

87 

23 

88 

24 

89 

** 

90 

31 

91 

32 

92 

33 

93 

34 

94 

35 

95 

36 

96 

** 

97 

41 

98 

42 

99 

43 

100 

44 

101 

45 

102 

** 

103 

51 

104 

52 

105 

53 

106 

54 

107 

55 

108 

** 

109 

61 

no 

62 

in 

63 

112 

64 

113 

65 

114 

66 

115 

*♦ 

116 

71 

117 

72 

118 

73 

119 

74 

120 

+ * 

121 

81 

122 

82 

123 

83 

124 

84 

125 

85 

126 

— — 

127 

** 

128 

01 

129 

02 

130 

03 

131 

04 

132 

05 

133 

** 

134 

11 

135 

12 

136 

13 

137 

14 

SOURCE  CARD  LISTING  FOR 
OFFLINE  REAO  ETAM  OICROS 

INSTRUCTOR 
STATIC  GRAPHICS 
ANIMATEO  GRAPHICS 
AUDIO 

PHYSICAL  MODELS 


PROCEDURAL  TRAINERS: 

TASK  C SYSTEM  SIMULATORS 


SYMBOL IC 

PHYSICAL  BUT  NON-FUNCTIONAL 
FUNCTI ONAL 


TEXT-VERBAL 


LIBRARY  OF  FRAMES  OR 


INTERNAL  PROGRAM 


NOT  APPLICABLE  DIRECTLY 


iL  SEQUENCE 
ITEMS 


SELECTS  NEXT  STIMULUS  ITEM  OR  SEQUENCE 


ON  INSTRUCTOR  OR  STUDENT  EVALUATION 


A SET  OF  STUDENT  RESPONSES 


— TASKS 


FIXED 

VARIABLE 
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138  15  OTHER 

139  «*  ADMINISTRATIVE  OFFICE  EQUIPMENT  OPERATION 

1 AO  21  TYPEWRITER 

191  22  TELEPHONE, ETC. 

192  23  REPRODUCER 

193  29  COMPUTER  TERMINAL 

199  25  TELETYPE 

195  26  OTHER 

196  **  INTERPERSONAL:  I NFQRM- I NSTRUCT-MANAGE 

197  31  BRIEF-DEBRIEF 

198  32  INSTRUCT-TRAIN 

199  33  ASSIGN,  MONITOR,  COORDINATE 

150  39  EVALUATE 

151  35  OTHER 

152  *■*  TECHNICAL  PROCEDURES 

153  91  SEQUENTIAL 

159  92  STRATEGIC,  ADAPTIVE 

155  93  INTERPERSONAL , TEAM  MEMBER 

156  99  OTHER 

157  **  TECHNICAL  TYPE  OF  PROCEDURE ( MAIN  EMPHASIS) 

158  51  SCAN-DETECT:  SYMBOLIC  (INCL.  MAPS , RADAR, TRANSDUCED  SIGNALS) 

159  52  SCAN-DETECT:  NATURAL 

160  53  IDENTIFY:  SYMBOL  I C (INCL  . TRANSDUCED  SIGNALS) 

161  59  IDENTIFY:  NATURAL 

162  55  INTERPRET: SYMBOLIC 

163  56  INTERPRET:  NATURAL 

169  57  PERCEPTUAL-MOTOR 

165  58  COGNITIVE  OPERATIONS 

166  59  MANUAL 

167  60  COMMUNICATE 

168  **  TECHNICAL  WITH  OR  WITHOUT  EQUIPMENT 

169  61  WITH  EQUIPMENT  (PAPER  IS  EQUIPMENT) 

170  62  WITHOUT  EQUIPMENT 

171  **  TECHNICAL  DECIDE 

172  71  DIAGNOSE-ANALYZE 

173  72  SELECT-CHOOSE 

179  73  UNDER  STRESS  OR  LOAD 

175  79  OTHER 

176  **  TECHNICAL  CONSTRUCT-REPAIR,  PLAN 

177  81  MANUAL  CONSTRUCT  OR  REPAIR 

178  82  COGNITIVE  CONSTRUCT,  PLAN 

179  **  TECHNICAL  TRACK-AIM-STEER 

180  91  APPLICABLE 

181  92  TIME  STRESS 

182  93  INFORMATION-LOAD  STRESS 
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1 

OFFLINE 

RE  AO 

2 

SM 

3 

34009 

3 

SM 

3 

42320 

4 

SM 

3 

42021 

5 

SM 

3 

50303 

ft 

SM 

3 

50928 

7 

SM 

3 

54722 

8 

SM 

3 

72001 

9 

SM 

3 

77264 

10 

SM 

3 

84225 

11 

SM 

3 

86015 

12 

SM 

3 

86016 

13 

SM 

3 

86017 

1* 

SM 

3 

86018 

15 

SM 

3 

86021 

16 

SM 

3 

86022 

17 

SM 

3 

86023 

18 

SM 

3 

86024 

19 

SM 

3 

86025 

20 

SM 

3 

86031 

21 

SM 

3 

86035 

22 

SM 

3 

86036 

23 

SM 

3 

86038 

24 

SM 

3 

86365 

25 

SM 

3 

86366 

26 

SM 

3 

94530 

27 

YN 

3 

38605 

28 

YN 

3 

38606 

29 

YN 

3 

38822 

30 

YN 

3 

38823 

31 

YN 

3 

38824 

32 

YN 

3 

38825 

33 

YN 

3 

38826 

34 

YN 

3 

38827 

35 

YN 

3 

38830 

36 

YN 

3 

38831 

37 

YN 

3 

38834 

38 

YN 

3 

38835 

39 

YN 

3 

38843 

40 

YN 

3 

38852 

41 

YN 

3 

38958 

42 

YN 

3 

46358 

43 

YN 

3 

77269 

44 

YN 

3 

77284 

45 

YN 

3 

94620 

46 

YN 

2 

25269 

47 

YN 

2 

38619 

48 

YN 

2 

38620 

49 

YN 

2 

38627 

50 

YN 

2 

38836 

51 

YN 

2 

38840 

52 

YN 

2 

38841 

53 

YN 

2 

38842 

54 

YN 

2 

38844 

55 

YN 

2 

38846 

56 

YN 

2 

38848 

57 

YN 

2 

38849 

58 

YN 

2 

38850 

59 

YN 

2 

38851 

60 

YN 

2 

38853 

61 

YN 

2 

38854 

62 

YN 

2 

38859 

63 

YN 

2 

38957 

64 

YN 

2 

38959 

65 

YN 

2 

46360 

66 

YN 

2 

65015 

67 

YN 

2 

65500 

68 

YN 

2 

65501 

ETAM  TOATA 

REEVE  ANO  SPLICE  HALYARDS 

RENDER  PASSING  AND  SIDE  HONORS 

STAND  SIGNAL  OPERATOR  WATCHES 

USE  MAINTENANCE  REQUIREMENT  CAROS  I MRC ) 

COMPLETE  MAINTENANCE  DATA  FORMS 
INVENTORY  INSTALLED  EQUIPMENT 

PERFORM  ROUTINE  MAINTENANCE  ON  OPTICAL  EQUIPMENT 
SECURITY  OF  COMMUNICATIONS  CLASSIFIED  MATERIAL 
OBSERVE  COMM.  TRANSMISSION  SECURITY  REQUIREMENTS 
RECOGNIZE.  USE  AND  INTERPRET  EMERGENCY  SIGNALS 
TRANSMIT,  RECEIVE  FLASHING  LIGHT  CODE  AT  6 GPM 
TRANSMIT,  RECEIVE  FLASHING  LIGHT  PLAIN  LANGUAGE 
TRANSMIT.  RECEIVE  SEMAPHORE  PLAIN  LANGUAGE 
DISTINGUISH  FLAGHOIST  SIGNALS 
SELECT  AND  DISPLAY  FLAGS  AND  PENNANTS 
EXERCISE  RULES  OF  VISUAL  RESPONSIBILITY 
OIRECT  A LIFEBOAT  DURING  MAN  OVERBOARD  EXERCISE 
IDENTIFY  FLAGS  AND  ENSIGNS  OF  MARITIME  NATIONS 
PREPARE  A VISUAL  MESSAGE  FOR  TRANSMISSION 
RECEIVE,  SENO  MESSAGES  ACCORDING  TO  PRECEDENCE 
PERFORM  CHALLENGE  REPLY  PROCEDURES 
SIGNALMAN  DUTIES  AS  A MEMBER  OF  A BOATCREW 
OPERATE  ELECTRICAL  AND  ELECTRONIC  VISUAL  SIGNALS 
OPERATE  INFRARED  AND  FLASHING  LIGHT  EQUIPMENT 
ROJTINE  UPKEEP  OF  VISUAL  SIGNALING  EQUIPMENT 
FILE  RECORDS  AND  CORRESPONDENCE 
ORDER  AND  MAINTAIN  STOCK  OF  OFFICE  SUPPLIES 
PERFORM  AS  MAST  YEOMAN 

OPTICAL  CHARACTER  RECOGNITION  INPUT  DOCUMENTS 

PERFORM  RECEPTIONIST  DUTIES 

OPERATE  DUPLICATING  EQUIPMENT 

TYPE  AT  30  WORDS  PER  MINUTE 

TRANSCRIBE  OFFICER  MESSAGE  ORDERS 

LEAVE  REGULATIONS.  PREPARE  LEAVE  AUTHORIZATIONS 

TYPE  CORRESPONDENCE  AND  MESSAGES 

ADMINISTRATIVE,  OPERATIONAL  RECORDS  AND  REPORTS 

INITIATE  JOB  ORDERS  AND  WORK  REQUESTS 

MAINTAIN  OFFICER,  WARRANT  OFFICER  SERVICE  RECORDS 

TYPE  INSTRUCTIONS  AND  NOTICES 

EFFECT  OFFICER  RECEIPTS  AND  TRANSFERS 

USE  AND  MAINTAIN  PUBLICATIONS  AND  DIRECTIVES 

ENSURE  SECURITY  OF  COMMUNICATIONS 

CARRY  OUT  MARKING  OF  CLASSIFIED  MATERIALS 

MINOR  MECHANICAL  MAINTENANCE.  OFFICE  EQUIPMENT 

IDENTIFY  FLEET  ADMIN.,  TACTICAL  CHAIN  OF  COMMAND 

ORGANIZE  AND  MONITOR  MAINTENANCE  OF  FILES 

HANDLE  OBSOLETE  FILES  AND  RECORDS 

MAINTAIN  A REPORTS  CONTROL  SYSTEM 

SUMMARY  AND  SPECIAL  COURTS-MARTIAL  RECORDS 

TYPE  AT  40  WORDS  PER  MINUTE 

INSTRUCT  SUBORDINATES  IN  OPS  DUPLICATING  EQUIPMENT 
MAINTAIN  OFFICER  PERSONNEL  DIARIES 
ODCR,  OTHER  REPORTS  AS  REQUIREO  BY  MAPMISMAN 
INTERPRET  TRAVEL  REGULATIONS 

NAVY  OFFICER  CLASSIFICATION  SYSTEM  CODE  STRUCTURE 
RECOMMENDATIONS  FOR  OECORATIONS  AND  AWARDS 
PREPARE  TEMADD  ORDERS  FOR  OFFICER  PERSONNEL 
CARRY  OUT  OFFICER  SEPARATION  PROCEDURES 
ROJTE  CORRESPONDENCE  AND  CLASSIFIED  MATERIAL 
HANDLE  OFFICIAL  AND  REGISTERED  MAIL 
PREPARE  FORMS  FOR  PERSONNEL  SECURITY  CLEARANCES 
MAINTAIN  TICKLER  ANO  CROSS-REFERENCE  FILES 
PREPARE  PAY  AND  PERSONNEL  ACTION  DOCUMENTS 
ORDER  PUBLICATIONS  AND  CHANGES 

ADVISE  AVAILABLE  ACTIVITY  LOCATIONS,  TYPES  OF  DUTY 
ADVISE  PERSONNEL  IN  RE  PERSONAL  SERVICES  CENTERS 
AOVISE  PCS  MOVE  BENEFITS  OF  NAVY  SPONSOR  PROGRAM 
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69 

YN 

1 38629 

70 

YN 

1 38630 

71 

YN 

1 38631 

72 

YN 

1 38634 

73 

YN 

1 38855 

7* 

YN 

1 39856 

75 

YN 

1 38858 

76 

YN 

1 38860 

77 

YN 

1 38960 

78 

YN 

1 38961 

79 

YN 

1 46361 

RD 

YN 

1 65480 

81 

YN 

1 77285 

82 

YN 

C 38639 

83 

YN 

C 38780 

84 

YN 

C 38786 

85 

YN 

C 38788 

86 

YN 

C 38861 

87 

YN 

C 38862 

88 

YN 

C 38863 

89 

YN 

C 38864 

90 

YN 

C 38865 

91 

YN 

C 44462 

92 

YN 

C 65490 

93 

YN 

CS3547o 

94 

YN 

CS  354  78 

95 

YN 

C S 35480 

96 

YN 

CS35513 

97 

YN 

CS35514 

98 

YN 

CS35516 

99 

YN 

CS35517 

100 

YN 

CS35518 

101 

YN 

CS44375 

102 

YN 

CM35483 

103 

YN 

CM35489 

104 

YN 

CM35490 

105 

YN 

CM35492 

106 

YN 

CM35519 

107 

YN 

CM52298 

108 

BM 

3 11511 

109 

BM 

3 16061 

110 

BM 

3 16063 

111 

BM 

3 30051 

112 

BM 

3 34011 

113 

BM 

3 34012 

114 

BM 

3 34013 

115 

BM 

3 34018 

116 

BM 

3 34024 

117 

BM 

3 34031 

118 

BM 

3 34036 

119 

BM 

3 34037 

120 

BM 

3 34039 

121 

BM 

3 34047 

122 

BM 

3 34049 

123 

BM 

3 34050 

124 

BM 

3 34052 

125 

BM 

3 34053 

126 

BM 

3 34058 

127 

BM 

3 34067 

128 

BM 

3 34068 

129 

BM 

3 34070 

130 

BM 

3 34071 

131 

BM 

3 34072 

132 

BM 

3 34073 

133 

BM 

3 34410 

134 

BM 

3 34411 

135 

BM 

3 34412 

136 

BM 

3 34413 

137 

BM 

3 34414 

APPLY  PRINCIPLES  OF  WORK  SIMPLIFICATION 
MONITOR  THE  REPORTS  CONTROL  SYSTEM 
PREPARE  MANPOWER  AUTHORIZATION  CHANGE  REQUESTS 
REV  I tW  COMPLETED  JOB  ORDERS  AND  WORK  REQUESTS 
PAPERWORK  FOR  INFORMAL/FORMAL  INVESTIGATIONS 
TYPE  AT  SO  WORDS  PER  MINUTE 

CARRY  OUT  CASUALTY  REPORTING,  ASSISTING  PROCEDURES 

PAPERWORK  FOR  SUMMARY  AND  SPECIAL  COURTS-MARTIAL 

PREPARE  CORRESPONDENCE  AND  MESSAGES 

DRAFT  INSTRUCTIONS  AND  NOTICES 

SUPERVISE  ALL  ASPECTS  OF  PUBLICATION  HANDLING 

ASSIST  THE  CASUALTY  ASSISTANCE  CALLS  OFFICER 

MONITOR  CLASSIFIED  MATERIALS  SECURITY  COMPLIANCE 

APPLY  OFFICE  MANAGEMENT  CONCEPTS  AND  TECHNIQUES 

MONITOR  CORRESPONDENCE  AND  FORMS  TICKLER  SYSTEM 

ADMINISTER  CLASSIFIED  MATERIAL  CONTROL  SYSTEM 

DOCUMENTS  THAT  REQUIRE  OFFICIAL  SIGNATURE 

ORGANIZATION  BOOK.  BILLS  AND  PERMANENT  DIRECTIVES 

MANAGEMENT  OF  ADMINISTRATIVE  OFFICE 

MONITOR  ALL  REPORTS  AND  OUTGOING  CORRESPONDENCE 

MONITOR  OFFICER  FITNESS  REPORTS 

INTERPRET  AND  ANALYZE  MANPOWER  AUTHORIZATIONS 

ESTABLISH  TRAINING  IN  JUMPS  AND  MAPMIS  PROCEDURES 

ADVISE  PAY,  ALLOWANCES  AND  TRAVEL  MATTERS 

MONITOR  OPERATIONS  IN  OWN  AREA  OF  RESPONSIBILITY 

PREPARE  LOCAL  DIRECTIVES  AND  INSTRUCTIONS 

INSURE  MAXIMUM  PERSONNEL  UTILIZATION 

SUPERVISE  USE  OF  OFFICE  MATERIALS  AND  EQUIPMENT 

ADMINISTER  RECORDS  DISPOSAL  PROGRAM 

MONITOR  NAVAL  ACTIVITY  AOMIN.  STAFF  FUNCTIONS 

MONITOR  ALL  ASPECTS  OF  RECORDS.  FORMS  MGMT . PGM. 

ALL  ASPECTS  OF  OFFICER  SERVICE  RECORDS  MAINTENANCE 

TRAINING,  EFFECTIVENESS,  IMPROVEMENT  INITIATION 

CONTROL  ADMINISTRATION  ACTIVITIES 

FUTURE  PLANNING  IN  OWN  AREA  OF  RESPONSIBILITY 

ESTABLISH  GOALS  IN  OWN  AREA  OF  RESPONSIBILITY 

REVIEW  PERSONNEL.  EQUIP,  MATERIAL  REQUIREMENTS 

PERFORM  ORGANIZATIONAL  ANALYSES 

DEVELOP  OPERATING  BUDGETS,  MONITOR  EXPENDITURES 

LOCATE  DAMAGE-CONTROL  FITTINGS  AND  EQUIPMENT 

SERVE  AS  GUN  CAPTAIN 

ELEMENTARY  FIRE  CONTROL 

OPERATION  OF  OECK  WINCHES 

RUNNING  RIGGING  FOR  HANDLING  CARGO 

ERECT  STATION  MARKERS  FOR  REPLENISHMENT  AT  SEA 

SERVE  AS  SIGNALMAN  FOR  WINCHMAN  OR  CRANEMAN 

RIGGING  AND  CARGO-HANDLING  EQUIPMENT 

MEMBER  OF  AN  ANCHORING  AND  MOORING  DETAIL 

CHARACTERISTICS  DF  NAVIGATIONAL  LIGHTS  AND  AIDS 

PREPARE  WOOD  AND  METAL  SURFACES  FOR  PAINTING 

PREPARE  AND  APPLY  PAINTS  AND  PRIMERS 

USE  STENCILS  FOR  PAINTING  LETTERS,  NUMERALS 

BASIC  KNOT,  HITCHES  AND  SPLICES 

TACKLES  AND  PURCHASES 

BREAK-DUT  AND  FAKE-OOWN  HAWSERS  AND  WIRE  ROPE 
GROUND  TACKLE,  RIGGING,  HOISTING,  STOWING 
HANDLING  CANVAS  AND  LEATHER 
OPERATE  VARIOUS  TYPES  OF  LANDING  CRAFT 
SERVE  AS  BOAT  COXSWAIN  ON  LANDING  CRAFT 
BOAT  LOG,  COMPASS.  AND  CHARTS 
EQUIPMENT  ON  SHIP*S  POWERBOATS, 


LCVP*  S , LCM'S 

BUAI  HAILS,  RECALLS.  SALUTES.  AND  ETIQUETTE 
CONDUCT  MINOR  INSPECTION,  MAINTENANCE  OF  BOATS 
MANEUVERING  A SMALL  BOAT  IN  A RESTRICTED  SPACE 
USE  OF  NAVIGATIONAL  SOUND  SIGNALS 
INTERPRET  RULES  FOR  AVOIDING  COLLISIONS 
INTERPRET  DISTRESS  SIGNALS 
GENERAL  PRUDENTIAL  RULE,  GOOD  SEAMANSHIP 
RULES  TO  DETERMINE  SAFE  WORKING  LOADS 
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138 

3 

*0001 

139 

PM 

3 

*0511 

1*0 

BM 

3 

*202* 

1*1 

BM 

3 

62001 

1*2 

BM 

3 

86049 

1*3 

BM 

3 

B6050 

1** 

BM 

3 

94004 

1*5 

8* 

3 

94592 

1*6 

BM 

3 

94593 

1*7 

BM 

3 

94633 

1*8 

BM 

2 

11513 

1*9 

BM 

2 

16062 

150 

BM 

2 

34014 

151 

BM 

2 

34015 

152 

BM 

2 

34019 

153 

BM 

2 

34021 

15* 

BM 

2 

34027 

155 

BM 

2 

34032 

156 

BM 

2 

34033 

157 

BM 

2 

34042 

158 

BM 

2 

34043 

159 

BM 

? 

34044 

160 

BM 

2 

34051 

161 

BM 

2 

3405* 

162 

BM 

2 

3*059 

163 

BM 

2 

3*060 

16* 

BM 

2 

3*061 

165 

BM 

2 

3*066 

166 

BM 

2 

3*069 

167 

BM 

2 

3**15 

168 

BM 

2 

3**16 

169 

BM 

2 

3**17 

170 

BM 

2 

35326 

171 

BM 

2 

35327 

172 

BM 

2 

35328 

173 

8M 

2 

*23*2 

17* 

BM 

2 

5*199 

175 

BM 

2 

54200 

176 

BM 

2 

54201 

177 

BM 

2 

94005 

178 

BM 

1 

11514 

179 

BM 

1 

34016 

180 

BM 

1 

34025 

181 

9M 

1 

34026 

182 

BM 

l 

34028 

183 

BM 

1 

34029 

18* 

BM 

1 

34030 

185 

BM 

1 

34035 

186 

BM 

1 

34055 

187 

BM 

l 

34056 

188 

8M 

1 

34062 

189 

BM 

1 

34063 

190 

BM 

1 

3*418 

191 

BM 

1 

35350 

192 

BM 

1 

35351 

193 

BM 

1 

44042 

19* 

BM 

1 

54657 

195 

BM 

C 

11515 

196 

BM 

C 

16060 

197 

BM 

c 

34022 

198 

BM 

c 

34023 

199 

BM 

c 

34057 

200 

BM 

c 

34065 

201 

BM 

c 

34074 

202 

BM 

c 

34075 

203 

BM 

c 

34078 

204 

BM 

c 

34079 

205 

BM 

c 

34081 

206 

BM 

c 

54658 

OPtRAIE  A SEWING  MACHINE  FOR  SEWING  CANVAS 
MAINTENANCE  OPERATIONS  WITH  CANVAS 
STANO  WATCH  AS  BOATSWAIN'S  MATE  OF  THE  WATCH 
DIRECT  HELICOPTERS  USING  STD.  HANO  SIGNALS 
INTERPRET  SIGNAL  FLAGS  AND  PENNANTS 
SEND  AND  RECEIVE  SEMAPHORE  AND  FLASHING  LIGHT 
STANDING  AND  RUNNING  BLOCKS  AND  TACKLES 
SHARPEN  SCRAPERS  AND  CHIPPING  HAMMERS 
MAINTENANCE  OF  PAINT-SPRAYING  EQUIPMENTS 
LUBRICATE  DECK  MACHINERY 

DIRECT  A DAMAGE-CONTROL  REPAIR  PARTY  SUBGROUP 
SERVE  AS  MOUNT  CAPTAIN 

SUPERVISE  LOADING.  DISCHARGING,  STOWING  OF  CARGO 
SUPERVISE  RIGGING  FOR  FUELING  AT  SEA 
RIG  YARO-AND-STAY  AND  SWINGING  DERRICKS 
USE  OF  GROUND  TACKLE  FOR  MOORING  AND  ANCHORING 
MAINTAIN  ANCHORS  AND  SECURING  EQUIPMENT 
RECOGNIZE  STORM  INDICATIONS 

USE  BAROMETER  AND  WET-  AND  DRY-BULB  THERMOMETERS 
SUPERVISE  SHIP'S  DECK  EQUIPMENT  MAINTENANCE 
PAINT  REMOVAL,  SURFACE  PREPARATION,  PAINTING 
SELECT  PAINTS  UNDER  DIRECT  SUPERVISION 
RIGGING  OF  ACCOMMODATION  LADDER  AND  BOAT  BOOM 
RIG  FOR  TOWING  AND  BEING  TOWED 
OPERATE  BOW  RAMP  ON  LANDING  CRAFT 
OPERATE  STERN  ANCHOR  WINCH 

HANDLING  OF  WIRE  DURING  BEACHING  AND  RETRACTING 
INSPECTION,  INFLATABLE  LIFEBOATS  AND  EQUIPMENT 
USE  OF  INFLATABLE  LIFEBOAT  AND  EQUIPMENT 
BOAT  HANDLING  ON  A SHIP  IN  PORT  AND  UNDERWAY 
REEVE  A SET  OF  BOAT  FALLS 
SUPERVISE  SPLICING  ANO  EYE  SPLICING 
MAINTAIN  PAINTING  RECORDS  AND  REPORTS 
MAINTAIN  HULL  RECORDS  AND  REPORTS 
PERSONNEL  ASSIGNMENTS  FOR  PAINTING  TASKS 
DIRECT,  ASSIGN,  INSTRUCT  MEN  IN  DECK  WATCH  SECTION 
INVENTORY  AND  SPARE  PART  SUPPORT  IN  COSAL 
ORDER  REPAIR  PARTS  USING  COSAL 
CHANGE  THE  ALLOWANCE  PARTS  LIST 
SUPERVISE  GENERAL  UPKEEP  OF  DECK  EQUIPMENT 
DIRECT  A DAMAGE-CONTROL  REPAIR  PARTY 
SUPERVISE  TRANSFER  OF  PERSONNEL.  CARGO  ANO  MAIL 
DIRECT  PROCEDURES  FOR  MOORING  TO  A BUOY 
DIRECT  PREPARATIONS  FOR  CARRYING 
PREPARE  FOR  MAKING  MEDITERRANEAN 
DETERMINE  NAVIGATIONAL  POSITION 
PLOT  DANGER  BEARING 

SMALL  BOAT  HANDLING,  EFFECTS  OF  GETTING  ALONGSIDE 
IDENTIFY  METHODS  OF  MINESWEEPING 
CONSTANT  TENSION  EQUIPMENT  RIGGING,  UNRIGGING 
IDENTIFY  PROCEDURES  ANO  USE  OF  PONTOON  GEAR 
IOENTIFY  DUTIES,  RESPONSIBILITIES  OF  BEACHMASTER 
ORGANIZE,  SUPERVISE  PAINTSHOP  AND/OR  PAINTLOCKER 
PLAN,  ORGANIZE,  ADMINISTER  OAILY  WORK  ASSIGNMENTS 
SUPERVISE  MA I NT  OF  REQUIRED  RECORDS  AND  LOGS 
TRAIN  AND  SUPERVISE  IN  BOATSWAIN'S  MATES  DUTIES 
POST  CHANGES  AND  ADDITIONS  TO  COSAL 
ORGANIZE,  SUPERVISE  A DAMAGE-CONTROL  REPAIR  PARTY 
SUPERVISE  HANDLING  OF  AMMUNITION  ANO  FLANMABLES 
SUPERVISE  GROUND  TACKLE  MAINTENANCE 
SUPERVISE  ORDINARY  MOOR.  MOORING  WITH  ANCHORS 
FORMULATE  METHODS  OF  ASSISTING  A STRANDED  VESSEL 
IDENTIFY  BOATSWAIN'S  MATE  OUTIES,  LCU,  WARPING  TUG 
USE  MANEUVERING  BOARD 
USE  TIDE  AND  CURRENT  TABLES 

USE  NAVIGATIONAL  AIDS  TO  MANEUVER  YARO  CRAFT 
USE  THE  THREE-MINUTE  RULE 

DIFFERENTIATE  INTERNATIONAL,  INLANO  RULES  OF  ROAD 
POST  SECAS  CHANGES  AND  SUBMIT  REPORT  TO  VFO 


OUT  ANCHORS 
MOOR 
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207 

BM 

CS 1 1 516 

208 

BM 

CS11517 

209 

BM 

CS3*076 

210 

BM 

CS3*077 

211 

BM 

CS3A080 

212 

BM 

CS35*76 

213 

BM 

CS35*78 

21* 

BM 

CS35*79 

215 

BM 

CS35*80 

216 

BM 

CS**3  75 

217 

BM 

CM3*082 

218 

BM 

CM3*083 

219 

BM 

CM35*83 

220 

BM 

CM35*89 

221 

BM 

CM35*90 

222 

BM 

CM35*92 

223 

BM 

CM500*5 

22* 

BM 

CM52298 

225 

AN 

20350 

226 

AN 

20351 

227 

AN 

20352 

228 

AN 

20368 

229 

AN 

2**25 

230 

AN 

25352 

231 

AN 

25353 

232 

AN 

2535* 

233 

AN 

2535* 

23* 

AN 

*0*90 

235 

AN 

*2353 

236 

AN 

*6*10 

237 

AN 

*8330 

238 

AN 

62350 

239 

AN 

62351 

2*0 

AN 

62352 

2*1 

AN 

62353 

2*2 

AN 

6235* 

2*3 

AN 

62355 

2** 

AN 

62357 

2*5 

AN 

62358 

2*6 

AN 

62359 

2*7 

AN 

62360 

2*8 

AN 

62361 

2*9 

AN 

62362 

250 

AN 

62363 

251 

AN 

6236* 

252 

AN 

62365 

253 

AN 

62366 

25* 

AN 

62367 

255 

AN 

62368 

256 

AN 

62369 

257 

AN 

62370 

258 

AN 

62371 

259 

AN 

62373 

260 

AN 

62376 

261 

AN 

79350 

262 

AN 

79356 

263 

AN 

79357 

26* 

AN 

9*55* 

265 

AN 

9*555 

266 

AN 

9*556 

267 

AN 

9*557 

268 

AN 

99350 

269 

AN 

99351 

270 

AN 

99352 

271 

AN 

99353 

272 

SM 

3 3*009 

273 

SM 

3 *2020 

27* 

SM 

3 *2021 

275 

SM 

3 50303 

ASSIST  DAMAGE  CONTROL  OFFICER 

IDENTIFY  STABILITY  FACTORS 

COORDINATE  ALL  TYPES  OF  CARGO 

COORDINATE  REPLENISHMENT  OF  SHIPS  AT  SEA 

COORDINATE  ANCHORING.  MOORING  DURING  STORMS 

TRACK  OPERATIONS  IN  OWN  AREA  OF  RESPONSIBILITY 

PREPARE  LOCAL  DIRECTIVES  AND  INSTRUCTIONS 

PREPARE  CORRESPONDENCE 

ASSURE  MAXIMUM  PERSONNEL  UTILIZATION 

ORGANIZE  AND  SCHEDULE  TRAINING  PROGRAMS 

COORDINATE  HANDLING  OF  BOATS  AND  LANDING  CRAFT 

COORDINATE  SALVAGE  AND  RESCUE  OPERATIONS 

PLAN,  ORGANIZE,  IMPLEMENT  AND  CONTROL  ACTIVITIES 

FORECAST  FUTURE  PLAN  AND  ACTION  REQUIREMENTS 

ESTABLISH  GCALS,  OBJECTIVES  AND  PRIORITIES 

REVIEW  PERSONNEL,  EQUIP,  MATERIAL  REQUIREMENTS 

DEPT  LONG-RANGE  PLANNED  MAINTENANCE  PROGRAM 

DEVELOP  OPERATING  BUDGETS.  MONITOR  EXPENDITURES 

AIRCRAFT  UNDER  EMERGENCY  CONDITIONS 

IDENTIFY  HARKINGS  INDICATING  DANGEROUS  AREAS 

IDENTIFY  TOXIC  PROPERTIES  OF  CLEANING  MATERIALS 

RECOGNIZE  ARMED  EJECTION  SEATS 

HANDLE  AIRCRAFT  BATTERIES 

KNOW  NAVAL  AIR  ARM  GENERAL  ORGANIZATION 

IDENTIFY  NAMES,  FUNCTIONS  OF  NAVAL  AIR  GROUPS 

IDENTIFY  NAVEL  AIRCRAFT  EQUAORONS 

IDENTIFY  NAVAL  AIRCRAFT  SQUADRONS 

FABRICATE  TIEDOWN  LINES 

STAND  AIRCRAFT  SECURITY  WATCH 

USE  PUBLICATIONS  IN  AIRCRAFT  MAINTENANCE 

HOT  BRAKES  FIRE  EQUIPMENT  IDENTIFICATION 

DEFINE  COMMON  AVIATION  TERMS  AND  NOMENCLATURE 

IOENTIFY  PURPOSE  OF  BASIC  AIRCRAFT  INSTRUMENTS 

USE  AIRFRAME  STATION  NUMBERING  SYSTEM 

DESIGNATION  SYSTEM  FOR  IDENTIFYING  NAVAL  AIRCRAFT 

IOENTIFY  BASIC  TYPES  OF  AIRCRAFT  POWERPLANTS 

IOENTIFY  AC  ELECTRONIC,  ARMAMENT  EQUIPMENTS 

AC  HYDRAULIC,  ELECTRICAL,  PNEUMATIC,  CABLE  SYSTEMS 

IDENTIFY  MAJOR  STRUCTURAL  COMPONENTS  OF  AIRCRAFT 

STAND  FIRE  WATCH  DURING  FUELING,  STARTING 

COLOR  MARKING  SYSTEM  FOR  AIRFIELD  VEHICLES 

DIRECT  AIRCRAFT  DURING  TAXI 

SERVE  AS  A MEMBER  OF  AN  AIRCRAFT  HANOLING  TEAM 
SECURE  AND  TIE  ODWN  AIRCRAFT 

STAND  COCKPIT  BRAKE  WATCH,  TOWING  OR  PUSHING 

OPERATING  MOBILE  EQUIPMENT  AROUNO  AIRCRAFT 

CARE  OF  AIRCRAFT  HANDLING  EQUIPMENT 

GENERAL  METHOOS  OF  HANDLING  LAND.  CARRIER  AIRCRAFT 

RECOGNIZE  AIRCRAFT  CARRIER  CLOTHING  COLOR  CODES 

IDENTIFY,  AVIATION  SUPPORT  EQUIPMENT 

HANDLE  EXTERNAL  POWER  CABLES  FOR  AC  START.  SERVICE 

OIL,  FUEL.  HYDRAULICS,  NITROGEN/AIR  SERVICING 

SERVICE  AIRCRAFT  SERVICING  EQUIPMENT 

COLOR  CODES  USED.  AIRCRAFT  LINES,  TUBING,  HOSES 

CORROSION  AND  RUST  INSPECTION  OF  AIRCRAFT 

CLEAN  AND  WAX  AIRCRAFT 

PLEXIGLASS/FIBERGLASS/RUBBER/FABRIC  CLEAN  AGENTS 
USE  AND  MAINTAIN  COMMON  HANDTOOLS 
USE  COMMON  MEASURING  TOOLS 

INSTALL  COMMON  AIRCRAFT  SAFETY  AND  LOCKING  DEVICES 
USE  COMMON  AIRCRAFT  SCREWS,  NUTS  AND  BOLTS 
HANDLING  OF  AVIATION-TYPE  INFLATABLE  LIFE  VEST 
ATTACH  AND  ADJUST  PARACHUTE  HARNESS 
OX-  EQUIPMENT,  LIFE  RAFTS 

IDENTIFY  TYPES  OF  AIRCRAFT  SURVIVAL  EQUIPMENT 

REEVE  AND  SPLICE  HALYARDS 

RENDER  PASSING  AND  SIDE  HONORS 

STAND  WATCHES  AS  A SIGNAL  OPERATOR 

USE  MAINTENANCE  REQUIREMENT  CAROS  IMRC) 


D. 5-12 


TAEG  REPORT  NO.  40 

PAGE  NUMBER  : 5 

SOURCE  CARO  LISTING  FOR 
OFFLINE  READ  ETAM  TDATA 

# 

276 

SM 

3 

50928 

COMPLETE  MAINTENANCE  DATA  FORMS 

277 

$ M 

3 

5*722 

INVENTORY  INSTALLED  EQUIPMENT 

278 

SM 

3 

72001 

PERFORM  ROUTINE  MAINTENANCE  ON  OPTICAL  EQUIPMENT 

279 

SM 

3 

7726* 

SAFEKEEPING  AND  STORAGE  OF  CLASSIFIED  MATERIAL 

280 

SM 

3 

84225 

COMMUNICATIONS  SECURITY  REGULATIONS,  PROCEDURES 

281 

SM 

3 

86015 

RECOGNIZE,  USE,  INTERPRET  EMERGENCY  SIGNALS 
TRANSMIT,  RECEIVE  CODE  GROUPS  BY  FLASHING  LIGHT 
TRANSMIT,  RECEIVE  PLAIN  LANGUAGE  BY  FLASHING  LIGHT 

28? 

SM 

3 

86016 

283 

SM 

3 

86017 

28* 

SM 

3 

86018 

TRANSMIT,  RECEIVE  PLAIN  LANGUAGE  BY  SEMAPHORE 

285 

SM 

3 

86021 

DISTINGUISH  FLAGHOI ST  SIGNALS 

286 

SM 

3 

86022 

SELECT  AND  DISPLAY  FLAGS  AND  PENNANTS 

287 

SM 

3 

86023 

EXERCISE  RULES  OF  VISUAL  RESPONSIBILITY 

288 

SM 

3 

86024 

DIRECT  DAY  LIFEBOAT,  NIGHT  MAN  OVERBOARD  EXERCISES 

289 

SM 

3 

86025 

IDENTIFY  FLAGS  AND  ENSIGNS  OF  MARITIME  NATIONS 

290 

SM 

3 

86031 

PREPARE  A VISUAL  MESSAGE  FOR  TRANSMISSION 

291 

SM 

3 

86035 

HANOLE  MESSAGES  ACCORDING  TO  PRECEDENCE 

292 

SM 

3 

86036 

PERFORM  CHALLENGE  REPLY  PROCEDURES 

293 

SM 

3 

86038 

SIGNALMAN  DUTIES  AS  MEMBER  OF  A BOATCREW 

2 94 

SM 

3 

86365 

ELECTRICAL  AND  ELECTRONIC  VISUAL  SIGNAL  EQUIPMENT 

295 

SM 

3 

86366 

OPERATE  INFRARED  ANG  FLASHING  LIGHT  EQUIPMENT 

296 

SM 

3 

9*530 

maintenance  of  visual  signaling  equipment 

297 

SM 

2 

3*007 

DRESS  AND  FULL-DRESS  A SHIP 

298 

SM 

2 

3*008 

RECOGNIZE  AND  USE  RULES  GOVERNING  FLAG  OISPLAY 

299 

SM 

2 

3865* 

MAINTAIN  VISUAL  SIGNAL  LOG,  VISUAL  TRAFFIC  FILES 

300 

SM 

2 

40469 

REPAIR  SIGNAL  AND  PERSONAL  FLAGS  AND  PENNANTS 

301 

SM 

2 

*2023 

LOCATE  A SHIP  USING  FORMATION  DIAGRAM 

302 

SM 

2 

46036 

CORRECT  AND  MAINTAIN  SIGNAL  PUBLICATIONS 

303 

SM 

2 

50632 

COMPLETE  PMS  FEEDBACK  REPORTS 

30* 

SM 

2 

5*200 

ORDER  COSAL  REPAIR  PARTS  AND  SPECIAL  TOOLS 

305 

SM 

2 

86020 

CONSTRUCT  AND  USE  ALL  SIGNALING  CALL  SIGNS 

306 

SM 

2 

86033 

ENCODE,  DECODE  NAVAL,  INTERNATIONAL  SIGNALS 

307 

SM 

2 

86044 

CLASSIFIED  MATERIAL  DISPOSAL  AND  DESTRUCTION 

308 

SM 

2 

860*5 

ENSURE  CORRECT  CLASSIFIED  MATERIAL  TRANSPORTATION 

309 

SM 

2 

86367 

TRANSMIT,  RECEIVE  FLASHING  LIGHT  CODE  GROUPS 

310 

SM 

2 

86368 

TRANSMIT,  RECEIVE  FLASHING  LIGHT  PLAIN  LANGUAGE 

311 

SM 

2 

86369 

TRANSMIT,  RECEIVE  SEMAPHORE  PLAIN  LANGUAGE 

112 

SM 

1 

38657 

SURVEY  AND  REQUISITION  SIGNAL  EQUIPMENT 

313 

SM 

l 

38659 

PREPARE  SIGNALMEN  VISUAL  COMM.  STANDING  ORDERS 

• 

31* 

SM 

l 

**367 

PREPARE  CRITIQUES  OF  VISUAL  SIGNALING  DRILLS 

315 

SM 

1 

***50 

INSTRUCT  IN  IDENTIFICATION  OF  SHIPS  AND  AIRCRAFT 

316 

SM 

1 

***51 

INSTRUCT  IN  VISUAL  COMMUNICATIONS  PROCEDURES 

317 

SM 

1 

***52 

INSTRUCT  IN  RECOGNITION  AND  AUTHENTICATION 

318 

SM 

1 

50906 

REVIEW  COMPLETED  MDCS  FORMS 

319 

SM 

1 

50987 

PREPARE  WEEKLY  SCHEDULES  OF  PREVENTIVE  MAINTENANCE 

320 

SM 

1 

5*057 

POST  CHANGES  AND  ADDITIONS  TO  COSAL 

321 

SM 

1 

5*725 

MAINTAIN  CUSTODY  CARDS  AND  INVENTORY  FILES 

322 

SM 

1 

5*726 

VERIFY  SPARE  PART  SUPPORT  IN  COSAL 

323 

SM 

1 

77266 

ADMINISTER  SECURITY  CLASSIFICATION  MANAGEMENT 

32* 

SM 

1 

86027 

AUTHENTICATE  RELEASER  OF  VISUAL  MESSAGES 

325 

SM 

1 

86028 

DIRECT  WARTIME  TRANSITION,  VISUAL  SIGNAL  METHODS 

326 

SM 

1 

86029 

CLASSIFY  VARIOUS  USES  OF  MESSAGES 

327 

SM 

1 

0603* 

USE  RESERVE  ON  BOARD  SIGNALING,  PUBLICATIONS 

328 

SM 

1 

86370 

TRANSMIT,  RECEIVE  FLASHING  LIGHT  COOE  GROUPS 

329 

SM 

1 

86371 

TRANSMIT,  RECEIVE  FLASHING  LIGHT  PLAIN  LANGUAGE 

330 

SM 

1 

86372 

TRANSMIT,  RECEIVE  SEMAPHORE  PLAIN  LANGUAGE 
PREPARE  QUARTERLY  SCHEDULES,  PREVENTIVE  MAINT 
POST  SECAS  CHANGES  AND  SUBMIT  REPORT  TO  VFO 

331 

SM 

C 

50988 

332 

SM 

C 

5*658 

333 

SM 

c 

77267 

ADMINISTER  COMMAND  SECURITY  EDUCATION  PROGRAM 

33* 

SM 

c 

86039 

PERFORM  AS  TACTICAL  COMMUNICATIONS  WATCH  OFFICER 

335 

SM 

c 

86373 

SUPERVISE  VISUAL  COMMUNICATIONS  ACTIVITIES 

336 

SM 

c 

8637* 

SUPERVISE  SIGNAL  BRIDGE  PERSONNEL 

337 

SM 

CS25371 

INTERPRET  COMM  SECTION  ORGANIZATION  FUNCTIONS 

338 

SM 

CS35*76 

MANAGE  IN  OWN  AREA  OF  RESPONSIBILITY 
PREPARE  LOCAL  DIRECTIVES  AND  INSTRUCTIONS 

339 

SM 

CS35*78 

3*0 

SM 

CS35*79 

PREPARE  CORRESPONDENCE 

3*1 

SM 

C S 35*80 

IMPLEMENT  MAXIMUM  PERSONNEL  UTILIZATION 

3*2 

SM 

CS  35*96 

DISSEMINATE  SIGNAL  EQUIP  TECHNICAL  INFORMATION 

3*3 

SM 

C 

S 35*97 

OBSERVE,  EVALUATE  VISUAL  COMMUNICATIONS  EXERCISES 
ORGANIZE,  IMPLEMENT  COMMUNICATIONS  SECTION 
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3*5 

SM 

CS**0*1 

3*6 

SH 

CS**3  75 

3*7 

SM 

CS50989 

3*8 

SM 

CS77268 

3*9 

SM 

CS86030 

350 

SM 

CM35*83 

351 

SM 

CM35*89 

352 

SM 

CM  35*90 

353 

SM 

CM35*92 

35* 

SM 

CM52298 

355 

EN 

3 

11088 

356 

EN 

3 

11089 

357 

EM 

3 

11090 

358 

EN 

3 

11091 

359 

EN 

3 

1 1092 

360 

EN 

3 

15329 

361 

EN 

3 

15330 

362 

EN 

3 

15331 

363 

EN 

3 

18*63 

36* 

EN 

3 

2*567 

365 

EN 

3 

28085 

366 

EN 

3 

30317 

367 

EN 

3 

30318 

368 

EN 

3 

30321 

369 

EN 

3 

30323 

370 

EN 

3 

30328 

371 

EN 

3 

30336 

3 72 

EN 

3 

30337 

373 

EN 

3 

303*5 

37* 

EN 

3 

303*9 

375 

EN 

3 

30353 

376 

EN 

3 

3035* 

377 

EN 

3 

30355 

378 

EN 

3 

30357 

379 

EN 

3 

30361 

380 

EN 

3 

30363 

381 

EN 

3 

3036* 

382 

EN 

3 

30378 

383 

EN 

3 

30**5 

38* 

EN 

3 

31011 

385 

EN 

3 

31013 

386 

EN 

3 

3101* 

387 

EN 

3 

31015 

388 

EN 

3 

31016 

389 

EN 

3 

31017 

390 

EN 

3 

31018 

391 

EN 

3 

31019 

392 

EN 

3 

31021 

393 

EN 

3 

3102* 

39* 

EN 

3 

31026 

395 

EN 

3 

31027 

396 

EN 

3 

31028 

397 

EN 

3 

31029 

398 

EN 

3 

31030 

399 

EN 

3 

31033 

*00 

EN 

3 

3103* 

*01 

EN 

3 

31035 

*02 

EN 

3 

310*8 

*03 

EN 

3 

31057 

*0* 

EN 

3 

31059 

*05 

EN 

3 

31072 

*06 

EN 

3 

31079 

*07 

EN 

3 

31091 

*08 

EN 

3 

31**7 

*09 

EN 

3 

*0529 

*10 

EN 

3 

*6113 

*11 

EN 

3 

51011 

*12 

EN 

3 

51026 

*13 

EN 

3 

5*800 

ADMINISTER  VISUAL  COMM  EMERGENCY  DRILLS 
ORGANIZE  AND  SCHEDULE  TRAINING  PROGRAMS 
ADMINISTER  LONG-RANGE  PLANNED  MAINT  PROGRAMS 
ADMINISTER  COMMAND  SECURITY  PROGRAM 
CLASSIFY  BASEGRAMS  AND  SPECIAL  CATEGORIES 
PLAN,  ORGANIZE,  IMPLEMENT,  CONTROL  ACTIVITIES 
FORECAST  FUTURE  REQUIREMENTS 
ESTABLISH  GOALS,  OBJECTIVES  AND  PRIORITIES 
REVIEW  PERSONNEL,  EQUIP,  MATERIAL  REQUIREMENTS 
OEVELOP  OPERATING  BUDGETS,  MONITOR  EXPENDITURES 
LOCATE  PRINCIPAL  VALVES,  FIRE-MAIN  SYSTEM 
OPERATE  AND  SECURE  FIRE  AND  FLASHING  PUMP 
OPERATE  INTERNAL-COMBUSTION  ENGINE-DRIVEN  PUMPS 
USE  RAD  I AC  INSTRUMENTS  FOR  MONITORING 
USE  FIREFIGHTING  EQUIPMENT 
LOCATE,  REPAIR  LEAKS  IN  HYDRAULICS  SYSTEMS 
BLEED  HYDRAULICS  SYSTEMS 

INSTALL  SEALS,  PACKINGS  AND  WIPERS  IN  HYORAULICS 
USE  OF  COMMON  TEST  EQUIPMENTS 

OPERATE  ELECTRICAL  CHARGING.  REGULATING  SYSTEMS 

TECHNICAL  DRAWING  USAGE  ABOARD  SHIP 

CONDUCT  BOILER  FEED  WATER  TESTS 

CORRECT  COMMON  BOILER  MALFUNCTIONS 

OPERATE  STEAM  OPERATED  DISTILLING  PLANTS 

REMOVE  SCALE  FROM  EVAPORATOR  TUBES  MECHANICALLY 

STAND  WATCH  ON  REFRIGERATION,  AIR  CONDITIONING 

LOW-,  MEDIUM-,  HIGH-PRESSURE  AIR  COMPRESSORS 

ADJUST  COMPRESSOR  FORCED-FEED  LUBRICATORS 

OVERHAUL  MANUALLY  OPERATED  VALVES 

OPERATE  AND  MAINTAIN  HYDRAULIC  EQUIPMENT 

TEST  ELECTRO-HYDRAULIC  STEERING  SYSTEM 

PERFORM  SHIFTING  OF  STEERING  UNIT  PUMPS 

STEERING  TRANSFER  FROM  PILOT  HOUSE  TO  AFT  STEERING 

TRANSFER  TO  MANUAL  STEERING 

INSPECT,  LUBRICATE  AND  TEST  GALLEY  EQUIPMENT 
INSPECT,  LUBRICATE  AND  TEST  LAUNDRY  EQUIPMENT 
INSPECT,  LUBRICATE  AND  TEST  DECK  MACHINERY 
MAINTAIN  MECHANICAL  LUBRICATORS 

REPACK,  ADJUST  STUFFING  BOXES  ON  PUMPS  AND  SHAFTS 

COMPLETE  OPERATIONAL  MAINTENANCE  OF  DIESEL  ENGINES 

OPERATE  INTERNAL  COMBUSTION  ENGINES 

JACKING  GEAR  ON  INTERNAL  COMBUSTION  ENGINES 

CARRYOUT  TURNING  OVER  OF  MAIN  ENGINES 

ALIGN  LUBRICATING  OIL  SYSTEM 

USE  OF  STANDBY  LUBRICATING  OIL  PUMPS 

PURGE  DIESEL  ENGINE  FUEL  INJECTION  SYSTEM 

ENTRIES  TO  MAIN  PROPULSION/DIESEL  GENERATOR  LOG 

MAINTAIN  ENGINEER'S  BELL  BOOK 

OPERATION  OF  LUBRICATION  SYSTEM,  OPERATING  ENGINE 
ALIGN  STARTING  SYSTEM  ( AIR/KYDRAUL IC/ELECTRICAL) 
ALIGN  COOLING  SYSTEM 
ALIGN  FUEL  SYSTEM 

CHEMICAL  TESTS,  LUBE  OIL  ANO  DISTILLATE  FUELS 
TESTS  ON  DIESEL  ENGINE  CLOSED-COOLING  WATER  SYSTEM 
OIL  AND  WATER  TESTS,  LIGHTING  OFF  AND  SECURING 
ALIGN,  OPERATE  LUBE  OIL  AND  FUEL  OIL  PURIFIERS 
CHANGE  OIL  IN  DIESEL  ENGINES 

MAINTENANCE  OF  FLANGE  SHIELDS  ON  PIPING  SYSTEMS 

LUBRICATING  OIL  SYSTEM  MAINTENANCE 

SELECT  AND  USE  GRINDING  COMPOUNDS 

INTERPRET  READINGS  OF  STANOARD  ENGINE  INSTRUMENTS 

USE  OF  STANDARD  ENGINEROOM  SUPPLIES 

CHECKS,  LUBE  ON  REDUCTION  GEARS.  THRUST  BEARINGS 

LUBE  OIL  SAMPLES  FROM  DIESEL  ENGINE  FOR  ANALYSIS 

HAKE  UP  RIGID  TUBING  AND  LOW  PRESSURE  HOSES 

USE  AND  MAINTAIN  TECHNICAL  AND  MAINT  MANUALS 

COMPLETE  MAINTENANCE  DATA  FORMS 

USE  MAINTENANCE  REQUIREMENT  CARDS  CMRC) 

IDENTIFY  CATEGORIES  OF  MATERIAL  IN  COSAL 
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414 

EN 

3 

94155 

415 

EN 

3 

98024 

416 

EN 

3 

98025 

417 

EN 

3 

98026 

418 

EN 

3 

98335 

419 

EN 

2 

11093 

420 

EN 

2 

11447 

421 

EN 

2 

30319 

422 

EN 

2 

30324 

423 

EN 

2 

30325 

424 

EN 

2 

30326 

425 

EN 

2 

30330 

426 

EN 

2 

30331 

427 

EN 

2 

30332 

428 

EN 

2 

30333 

429 

EN 

2 

30334 

430 

EN 

2 

30338 

431 

EN 

2 

30341 

432 

EN 

2 

30342 

433 

EN 

2 

30343 

434 

EN 

2 

30344 

435 

EN 

2 

30347 

436 

EN 

2 

30358 

437 

FN 

2 

30372 

438 

EN 

2 

30374 

439 

EN 

2 

30911 

440 

EN 

2 

30912 

441 

EN 

2 

30913 

442 

EN 

2 

31038 

4<*3 

EN 

2 

31039 

444 

EN 

2 

31043 

445 

EN 

2 

31044 

446 

EN 

2 

31049 

447 

EN 

2 

31051 

448 

EN 

2 

31061 

449 

EN 

2 

31092 

450 

EN 

2 

31093 

451 

EN 

2 

31448 

452 

EN 

2 

31449 

453 

EN 

2 

31450 

454 

EN 

2 

31451 

455 

EN 

2 

31452 

456 

EN 

2 

31453 

457 

EN 

2 

35112 

458 

EN 

2 

35342 

459 

EN 

2 

48245 

460 

EN 

2 

48256 

461 

EN 

2 

51114 

462 

EN 

2 

54801 

463 

EN 

2 

54802 

464 

EN 

2 

94156 

465 

EN 

2 

94157 

466 

EN 

1 

11454 

467 

EN 

1 

30320 

468 

EN 

1 

30327 

469 

EN 

1 

30339 

470 

EN 

1 

30340 

471 

EN 

l 

30348 

472 

EN 

1 

30350 

473 

EN 

l 

30914 

474 

EN 

1 

30915 

475 

EN 

1 

31012 

476 

EN 

l 

31025 

477 

EN 

1 

31031 

478 

EN 

1 

31037 

479 

EN 

1 

31040 

480 

EN 

1 

31041 

481 

EN 

1 

31042 

482 

EN 

1 

31094 

USE  AND  CARE  FOR  MEASURING  INSTRUMENTS 

ADJUST  FUEL  COMBUSTION  TO  MINIMIZE  AIR  POLLUTION 

DETERMINE  POLLUTION  THREATS  DUE  TO  PETROLEUM  SPILL 

PREVENTION  OF  OIL  SPILL  ACCIDENTS 

SAFETY  IN  HIGH  NOISE  AND  HEAT  STRESS  AREAS 

INSPECT  ANO  REPAIR  PORTABLE  PUMPS 

IDENTIFY  ORGANIZATION  OF  A REPAIR  PARTY 

OPERATE  AUXILIARY  BOILER 

REMOVE  SCALE  FROM  DISTILLING  UNITS  CHEMICALLY 

TEST  EVAPORATORS  AND  CONDENSERS  FOR  LEAKS 

CONDUCT  STANDARD  DISTILLING  PLANT  TESTS 

HALIDE  TORCH  TESTS  ON  REFRIGERATION  UNITS 

OIL  CHANGES  IN  REFRIGERATION  COMPRESSORS 

SUCTION,  DISCHARGE  VALVE  TESTS,  REFRIG  COMPRESSORS 

TEST  AND  RECHARGE  REFRIGERATION  UNITS 

TEST,  RENEH  OIL  SEALS  IN  REFRIGERATION  UNITS 

SUCTION,  DISCHARGE  VALVES  MAINT  ON  AIR  COMPRESSORS 

DETERMINE  CLEARANCES  IN  PUMPS 

OVERHAUL  PUMPS 

CHECK  FOR  ALIGNMENT  OF  PUMP  DRIVING  UNITS 
REPLACE  ROTARY  SEALS 

TEST  HYDROSTATICALLY,  REPAIR  PIPING  SYSTEMS 
LUBRICATE  STEERING  GEAR 

ADJUST,  REPAIR  REFRIGERATION  AUTOMATIC  CONTROLS 

CORRECT  INEFFICIENT  REFRIGERATION  SYSTEMS  OPS 

CLEAN,  INSPECT,  TEST  HEAT  EXCHANGERS 

MAINT  OF  EXHAUST  SILENCERS  AND  SPARK  ARRESTERS 

OPERATE  A HEAT  RECOVERY  DISTILLING  PLANT 

INTERNAL  COMBUSTION  ENGINE  MAINTENANCE 

REFACE,  RESEAT  INTAKE  AND  EXHAUST  VALVES 

TEST  UNIT  INJECTORS  AND/OR  FUEL  INJECTION  NOZZLES 

MAINTENANCE  OF  FUEL  OIL  INJECTORS 

PREVENTION  OF  CRANKCASE  EXPLOSIONS 

TROUBLESHOOT  GASOLINE  ENGINES 

CHEMICAL  ANALYSIS  OF  FUELS  AND  OILS 

ENGINE  AND  DRIVE  SHAFT  ADJUSTMENTS,  SMALL  CRAFT 

CHECK  OIL  CLEARANCE  IN  BEARINGS 

MAINT  INTERNAL  COMBUSTION  ENGINE  TURBO-CHARGERS 
TROUBLESHOOT  INTERNAL  COMBUSTION  ENGINE  BLOWERS 
OPERATE  ANO  MAINTAIN  VERTICAL  CONVEYORS 
MAINT  OF  LUBE  OIL  AND  FUEL  OIL  PURIFIERS 
EXTERNAL  ADJUSTMENTS  ON  DIESEL  ENGINES 
MAINT  TREND  ANALYSIS  DATA  ON  DIESEL  ENGINE  OPS 
RECORD  RESULTS  OF  EQUIPMENT  TESTS 
RECORD  TRAINING  DATA 
TROUBLESHOOT  AUXILIARY  SYSTEMS 

DYE-PENETRANT  AND  MAGNAFLUX  TESTS,  METAL  SURFACES 
COMPLETE  PMS  FEEDBACK  REPORTS 

INSTALLED  EQUIP  AND  SPARE  PART  SUPPORT  IN  COSAL 
ORDER  REPAIR  PARTS  AND  SPECIAL  TOOLS  USING  COSAL 
USE  MECHANICAL  MAINTENANCE  TEST  EQUIPMENT 
PLAIN  TURNING  AND  CUTTING  ON  AN  ENGINE  LATHE 
SUPERVISE  A DAMAGE  CONTROL  PARTY 
MAINTENANCE  AND  TESTS  ON  AUXILIARY  BOILERS 
PLUG  AND/OR  REPLACE  HEAT  EXCHANGER  TUBES 
INTERCOOLER,  AFTERCOOLER,  OIL  COOLER  MAINTENANCE 
OVERHAUL  OF  AIR  COMPRESSORS 

REDUCING.  RELIEF,  TEMPERATURE  CONTROL  VALVE  MAINT 
HYDRAULIC  SYSTEM  MAINTENANCE 
STEAM  OPERATED  DISTILLING  PLANT  MAINTENANCE 
VAPOR  COMPRESSION  DISTILLING  PLANT  MAINTENANCE 
INTERNAL  COMBUSTION  ENGINE  MAINTENANCE 
ADJUSTMENT  OF  TEMPERATURE  REGULATING  VALVES 
GRAPHICALLY  DETERMINE  PROPER  ENGINE  OPERATION 
REPAIR  OF  INTERNAL  COMBUSTION  ENGINES 
CHECK  MAIN  ENGINE  BEARING  AND  THRUST  CLEARANCES 
BLOWER  CLEARANCES,  LOBES,  TIMING,  DRIVE  GEAR  CHECK 
INSPECT,  TAKE  CLEARANCES  ON  TURBO-CHARGERS 
CHECK  THRUST  BEARING  READINGS 
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*8  3 

EN 

1 31097 

*8* 

EN 

1 31253 

*85 

EN 

1 3l*5<* 

*86 

EN 

1 35323 

*87 

EN 

1 51167 

*88 

EN 

1 51168 

*89 

EN 

1 5*827 

*90 

EN 

C 30359 

*91 

EN 

C 3067* 

*92 

EN 

C 310*5 

*93 

EN 

C 310*6 

*9* 

EN 

C 310*7 

*95 

EN 

C 31077 

*96 

EN 

C 31095 

*97 

EN 

C 35*32 

*98 

EN 

C 35*33 

*99 

EN 

C 35885 

500 

EN 

C 35886 

501 

EN 

C *2278 

502 

EN 

C *2279 

503 

EN 

C *2367 

50* 

EN 

C 51069 

505 

EN 

C 51169 

506 

EN 

C 51*75 

507 

EN 

C 51*76 

508 

EN 

C 51*77 

509 

EN 

C 51*78 

510 

EN 

C 5*80* 

511 

EN 

C 98021 

512 

EN 

C S 3 1 * 1 0 

513 

EN 

CS31*55 

51* 

EN 

CS  31*56 

515 

EN 

CS35072 

516 

EN 

CS35362 

517 

EN 

C S 35*  76 

518 

EN 

CS35*78 

519 

EN 

CS  35*  79 

520 

EN 

C S 35*80 

521 

EN 

CS3588* 

522 

EN 

CS35887 

523 

EN 

CS**375 

52* 

EN 

CS  5 10  73 

525 

EN 

CS51206 

526 

EN 

CS98280 

527 

EN 

CS99281 

528 

EN 

CM20060 

529 

EN 

C M3 1*  5 7 

530 

EN 

CM35365 

531 

EN 

CM35366 

532 

EN 

CM35*83 

533 

EN 

CM35*89 

53* 

EN 

CM35*90 

535 

EN 

CM35*92 

536 

EN 

CM*66 1 6 

537 

EN 

CM51072 

538 

EN 

CM51075 

539 

EN 

CM51179 

5*0 

EN 

CM52298 

5*1 

EN 

CM5*806 

5*2 

GMG 

3 1*086 

5*3 

GMG 

3 1*56* 

5** 

GMG 

3 1*565 

5*5 

GMG 

3 1*570 

5*6 

GMG 

3 15305 

5*7 

GMG 

3 15307 

5*8 

GMG 

3 1531* 

5*9 

GMG 

3 15315 

550 

GMG 

3 16027 

551 

GMG 

3 16033 

CHECK  DAMAGE  TO  SHAFTS  AND  THRUST  BEARINGS 
INSPECT,  ADJUST  GOVERNORS  ANO  OVERSPEED  TRIPS 
COMPLETE  MAINT  OF  GOVERNORS  AND  OVERSPEED  TRIPS 
MAINTAIN  ENGINEROOM  RECORDS 
REVIEW  COMPLETED  HDCS  FORMS 

PREPARE  WEEKLY  SCHEDULES  OF  PREVENTIVE  MAINTENANCE 
POST  CHANGES  AND  ADDITIONS  TO  COSAL 
MECHANICAL  OPERATION  TESTS 

SUPERVISE  AND  TRAIN  IN  MECHANICAL  MAINTENANCE 
DIESEL  AND  GASOLINE  ENGINES  MAINTENANCE 
CONDUCT  DIESEL  ENGINE  POST-OVERHAUL  CHECKOUT 
MEASURE  CRANKSHAFT  DEFLECTION 
SHIP'S  EXTERNAL  DRIVE  CHECKS  WHEN  IN  DRYDOCK 
MAIN  REDUCTION  GEAR  BACKLASH,  ALIGNMENT  CHECKS 
PREPARE  POST  REPAIR  TRIALS  REPORTS 
REVIEW  ALL  ENGINE  ROOM  RECORDS 

SUPERVISE  ALL  ADMINISTRATION  FOR  ENGINEERING  DEPT 
INSPECT  RESULTS  OF  EQUIPMENT  TESTS 

INTERPRET  DUTIES.  ENGINEERING  OFFICER  OF  THE  WATCH 
SUPERVISE  ENGINEROOM  WATCH  ON  DIESEL-DRIVEN  SHIP 
INTERPRET  DUTIES,  ENGINEERING  OFFICER  OF  THE  WATCH 
ESTIMATE  REPAIRS  FOR  AUX,  MAIN  PROPULSION  MACH 
PREPARE  QUARTERLY  PM  SCHEDULES 
INSPECT  -SHIP  TO  SHOP"  WORK  ANO  REPORTS 
OIL  ANALYSIS  REPORTS 
ENGINE  TREND  ANALYSIS  OATA 
OIL  CHEMICAL  TESTS 
SECAS,  SUBMIT  REPORTS  TO  VFO 
SUPERVISE  OIL  SPILL  CONTAINMENT  EXERCISES 
TRAINING  OF  PERSONNEL  IN  MECHANICAL  MAINTENANCE 
ANALYSIS  OF  DAILY  OPERATING  RECOROS 
ESTIMATE  FEASIBILITY  OF  REPAIRS 
MONITOR  MAINT  OF  EQUIPMENT,  MATERIAL  LOGS 
ADVISE  PERSONNEL  IN  REPAIR  PAPERWORK 
MANAGEMENT  IN  OWN  AREA  OF  RESPONSIBILITY 
PREPARE  LOCAL  DIRECTIVES  ANO  INSTRUCTIONS 
PREPARE  CORRESPONDENCE 

ESTABLISH  MAXIMUM  PERSONNEL  UTILIZATION 
REVIEW  WATCHSTANDING  QUALIFICATIONS 
REVIEW  PUBLICATIONS  REQUIREMENTS 
ORGANIZE  AND  SCHEDULE  TRAINING  PROGRAMS 

WORK 

PLANNED  MAINTENANCE  PROGRAM 
POLLUTION  CONTROL  PROGRAMS 
PROGRAMS 

AND  MONITOR  SAFETY  PROGRAMS 
DAILY  OPERATING  RECORDS 
MONTHLY  SUMMARY,  01 ESEL-DRI VEN  SHIPS 
GAS  TURBINE  ENGINE  PUBLICATION  DISTRIBUTION 


ANALYZE  CHEMICAL 
INTERPRET  DIESEL 
INTERPRET  DIESEL 
ENTER  CHANGES  TO 


ORGANIZE  AND  SCHEDULE 
ADMINISTER  LONG-RANGE 
MONITOR  ENVIRONMENTAL 
MONITOR  ENVIRONMENTAL 
DEVELOP 
MONITOR 
PREPARE 
IC  AND 


PLAN,  ORGANIZE,  IMPLEMENT,  CONTROL  ACTIVITIES 
FORECAST  FUTURE  REQUIREMENTS 
ESTABLISH  GOALS,  OBJECTIVES  AND  PRIORITIES 
REVIEW  PERSONNEL,  EQUIPMENT.  MATERIAL  REQUIREM 
REVIEW  MANUAL.  PRINT,  PUBLICATION  REQUIREMENTS 
MONITOR  ALL  "SHIP  TO  SHOP"  WORK  AND  REPORTS 
PERFORM  CASUALTY  ANALYSIS 

coordinate  repairs  between 

DEVELOP  OPERATING  BUDGETS, 

MONITOR  ASSIGNED  EQUIPMENT 
TEST  ELECTRONIC  TUBES 
INTERPRET  COLOR-COOING  OF 


SHIP  ANO  SHIPYARD 
MONITOR  EXPENDITURES 
LOGISTICS  SUPPORT 

ELECTRONIC  PARTS 


TEST  ANO  REPLACE  ELECTRONIC  PARTS 
IDENTIFY  ELECTRONIC  CIRCUIT  PROTECTIVE  DEVICES 
INSPECT  AND  SERVICE  HYORAULIC  EQUIPMENT 
TEST  HYDRAULIC  ORDNANCE  EQUIPMENT 
RECOGNIZE  TYPES  AND  PRINCIPLES,  PRESSURE  GAUGES 
MAINTAIN  PIPES,  FITTINGS,  SEALS  AND  GASKETS 
IDENTIFY  TYPES  OF  EXPLOSIVE  ORDNANCE 
HANDLE,  STOW  ORDNANCE  AND  PYROTECHNICS 
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GMQ 
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16399 

55  7 

GMG 

3 

16400 
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GMG 

3 

16402 

559 

GMG 

3 

16403 

560 

GMG 

3 

16404 
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GMG 

3 

16405 

562 

GMG 

3 

16407 

563 

GMG 

3 

16408 

564 

GMG 

3 

17079 

565 

GMG 

3 

1 7001 

566 

GMG 

3 

17365 

567 

GMG 

3 

18017 

568 

GMG 

3 

18022 

569 

GMG 

3 

24023 

570 

GMG 

3 

24025 

571 

GMG 

3 

24390 

572 

GMG 

3 

24391 

573 

GMG 

3 

24497 

574 

GMG 

3 

24500 

575 

GMG 

3 

24501 

576 

GMG 

3 

24502 

577 

GMG 

3 

24503 

578 

GMG 

3 

28016 

579 

GMG 

3 

28019 

580 

GMG 

3 

28020 

681 

GMG 

3 

29236 

582 

GMG 

3 

29238 

583 

GMG 

3 

29239 

584 

GMG 

3 

29549 

585 

GMG 

3 

40525 

586 

GMG 

3 

46030 

587 

GMG 

3 

48241 

588 

GMG 

3 

51011 

589 

GMG 

3 

51026 

590 

GMG 

3 

54192 

59 1 

GMG 

3 

54759 

592 

GMG 

3 

54760 

593 

GMG 

3 

54761 

594 

GMG 

3 

79272 

595 

GMG 

3 

92336 

596 

GMG 

3 

94424 

597 

GMG 

3 

94508 

598 

GMG 

2 

14043 

599 

GMG 

2 

14566 

600 

GMG 

2 

14567 

601 

GMG 

2 

14798 

602 

GMG 

2 

15023 

603 

GmG 

2 

15309 

604 

GMG 

2 

15311 
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sj  MG 

■> 

15312 
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GMG 

3 

16004 

607 

GMG 

2 

16021 

608 

GMG 

2 

16022 

609 

GMG 

2 

16054 

610 

GMG 

2 

16099 

611 

GMG 

2 

17366 
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GMG 

*> 

1 7367 

613 

GMG 

*2 

10419 

614 

GMG 

2 

24026 

615 

GMG 

2 

24027 

616 

GMG 

2 

24393 

617 

GMG 

2 

2801  7 

618 

GMG 

2 

28025 

619 

GMG 

2 

28382 

620 

GMG 

2 

29237 

STOW,  ISSUE,  INVENTORY  SMALL  ARMS  AND  AMMUNITION 
OPERATE  AMMUNITION  HOIST  UNITS 

SERVICE  ORDNANCE  HANOLING  AND  ASSOCIATED  EQUIPMENT 

INSTALL,  SET,  REMOVE  PROJECTILE  FUZING  DEVICES 

ASSEMBLE  AND  USE  LANDING  PARTY  EQUIPMENT 

OPERATE  AND  MAINTAIN  LINE-THROWING  GUNS 

PERFORM  FUZING  OF  HAND  GRENADES 

MONITOR.  REPLACE  RELATIVE  HUMIDITY  INDICATORS 

LOG  MAGAZINE  TEMPERATURES,  INSPECT  MAGAZINE  AREA 

OPERATE  MAGAZINE  FIREFIGHTING  SYSTEMS 

INSPECT  ORDNANCE  ITEMS 

OPERATE  PYROTECHNIC  EQUIPMENT 

MAINTAIN  SMALL  ARMS 

MAINTAIN  LANDING  PARTY  EQUIPMENT 

PERFORM  DAILY  TRANSMISSION  TESTS 

OPERATE  MECHANICAL  AND  ELECTRICAL  TEST  EQUIPMENT 
OPERATE  PRESSURE  GAUGES,  INTERPRET  READINGS 
MAKE  ELECTRICAL  C ABLE  AND  WIRING  CHECKS 
COMMUTATOR,  SLIPPING,  BRUSH  ASSEMBLY  MAINTENANCE 
ELECTRICAL/ELECTRONIC  TERMS/UNITS  OF  MEASURE 
IDENTIFY  TYPES  OF  A.C.  motors 
IDENTIFY  TYPES  OF  D.C.  MOTORS  AND  GENERATORS 
CLEAN  ELECTRICAL  CONTACTS  AND  SWITCHES 
MECHANICAL  WIRE  CONNECTING,  INCLUDING  SOLDERING 
DETECT  AND  REPLACE  BLOWN  FUSES 

POINT-TO-POINT  VOLTAGE,  RESISTANCE  MEASUREMENTS 

IDENTIFY  MECHANICAL,  HYDRAULIC,  ELECTRONIC  SYMBOLS 

USE  AND  READ  DIAGRAMS  AND  DRAWINGS 

TRACE  CIRCUITS  ON  SCHEMATICS  AND  DRAWINGS 

MAINTAIN  ONBOARO  SYSTEMS  BREECH  MECHANISMS 

REPAIR  SEALING  SURFACES,  MATING  AREAS,  THREADS 

REPLACE  FAULTY  FASTENING  HARDWARE  AND  SEALS 

INSTALL  ALIGNMENT  EQUIPMENT  ON  GUN  MOUNTS 

CUT,  BENO,  PREPARE  PIPING  AND  TUBING 

USE  PUBS  RELATED  TO  OPS/TEST/REPAIR,  ORDNANCE  EQPT 

HANDLING  AND  DISPOSAL  OF  MISFIRED  ROUNDS 

COMPLETE  MAINTENANCE  DATA  FORMS 

USE  MAINTENANCE  REQUIREMENT  CAROS 

PROCESS  AND  OOCUMENT  REPAIRABLE  ITEMS 

MAINTAIN  CONSUMABLE  SUPPLIES,  OBTAIN  REPLACEMENTS 

IDENTIFY  MATERIALS  CONTAINED  IN  COSAL 

INVENTORY  TOOLS  AND  PORTA8LE  TESTING  EQUIPMENT 

CORROSION  PREVENTION,  MOISTURE  PROTECTIVE  MATERIAL' 

USE.  MAINTAIN  FIXED/PORTABLE  PNEU/ELEC  POWER  TOOLS 

USE,  MAINTAIN  HANOTOOLS 

OPERATE  TORQUING  TOOLS 

SERVOAMPLIFIERS  MAINTENANCE 

ANALYZE  ELECTRONIC  SYSTEMS  MALFUNCTIONS 

FIRE  CONTROL  INTERFACE  DSOT 

CHECK  ALARMS,  SENSING  DEVICES  FOR  OPERATION 
PERFORM  HYDRAULIC  TESTS,  ORDNANCE  EQUIPMENT 
INSTALL,  MAINTAIN  COMPONENTS  IN  HYDRAULIC  SYSTEMS 
ANALYZE  PUMP  MALFUNCTIONS  AND  MAKE  REPAIRS 
RECOIL,  COUNTER  RECOIL,  GAS  EJECTOR  SYSTEMS 
USE  DEMOLITION  CHARGES  FOR  EMERGENCY  DESTRUCTION 
INSPECT  EXPLOSIVE  ORDNANCE  ITEMS  FOR  DAMAGE 
INSTRUCT  CREWS  IN  HANDLING  AMMUNITION,  EXPLOSIVES 
HANDLE  DAMAGED  EXPLOSIVE  COMPONENTS 
CHECK  ALARMS  AND  SENSING  DEVICES 
WEAPONS  ADJUSTMENT  AND  ALIGNMENT 
REPLACE  DEFECTIVE  COMPONENTS  OR  MODULES 
INSTALL,  OPERATE  GUN  MOUNT  DYNAMIC  TEST  EQUIPMENT 
TEST,  REPLACE  ELECTRICAL  CIRCUIT  COMPONENTS 
REMOVE,  INSTALL,  ALIGN.  ZERO  SYNCHROS 
ANALYZE  ORDNANCE  ELECTRICAL  SYSTEMS  MALFUNCTIONS 
PREPARE  BASIC  DRAWINGS  AND  MATHEMATICAL  LAYOUTS 
USE  WORKING  DRAWINGS  IN  MAKING  REPAIRS,  MODS 
USE  MICROFICHE,  LD  DRAWINGS,  READ/PRINT  MACHINES 
CHECK  ACCURACY  OF  TRAIN  AND  ELEVATION  INDICATORS 
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38893 

670 

GMG 

c 
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CS17417 
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TEST 


TEST  AND  MAINTAIN  ORDNANCE  WATER  SYSTEM 
PREPARE  ONBOARD  GUNS  AND  EQUIPMENT  FOR  FIRING 
PERFORM  POST  FIRING  PROCEDURES  ON  GUNS.  EQUIPMENT 
TEST  FIRING  CUTOJT  ASSEMBLIES,  INTERPRET  MEANINGS 
TEST  FUZE-SETTING  DEVICES,  INTERPRET  MEANINGS 
INSPECT,  TEST  ASSEMBLIES  (LESS  POWER  DRIVES! 

MAINTAIN,  REPAIR  ASSEMBLIES  (LESS  POWER  DRIVES) 
MAINTAIN,  CHECK  ORDNANCE  OPERATION  LOGS 
MAINTAIN  SHOP  AND  EQUIPMENT  WORKLOGS 
MAINTAIN  EQUIPMENT  HISTORIES 
COMPLETE  PMS  FEEDBACK  REPORTS 
SUBMIT  DAILY  AMMUNITION  TRANSACTION  REPORTS 
CORRECT  THE  COSAL  REPORTS 

INVENTORY  EQUIPMENT,  SPARE  PART  SUPPORT  IN  COSAL 
ORDER  PARTS  AND  TOOLS  USING  COSAL 
DIAGNOSE  ELECTRONIC  MALFUNCTIONS 
TEST,  ADJUST,  REPAIR  HYDRAULIC  MECHANISMS 
SUPERVISE  CREWS  IN  ORDNANCE  HANDLING 
ANALYZE,  INTERPRET  DATA,  GUN  MOUNT  DYNAMIC 
OPERATE  AN  OSCILLOSCOPE 
PREPARE  ADVANCED  DRAWINGS  AND  MATHEMATICAL  LAYOUTS 
INSPECT  AND  TEST  POWER  DRIVES 
MAINTAIN  AND  REPAIR  POWER  DRIVES 
REPAIR  AND  ADJUST  FIRING  CUTOUT  ASSEMBLIES 
REPAIR  AND  ADJUST  FUZE-SETTING  OEVICES 
TEST,  AO JUST , REPAIR  ALARMS  AND  SENSING  OEVICES 
OVERHAUL  ANO  REPAIR  GUN  MOUNTS 
COMPLETE  WEAPONS  SYSTEM  DEFICIENCY  REPORTS 
PREPARE  PERIODIC  PERFORMANCE  REPORTS 
MAINTAIN  AMMUNITION  RECORDS,  INVENTORIES 
MAINTAIN  RECORDS.  CONVENTIONAL  EXPLOSIVE  ORDNANCE 

organize.  Supervise  maintenance  of  a technical  library 

REVIEW  COMPLETED  MDCS  FORMS 

PREPARE  WEEKLY  SCHEDULES  OF  PREVENTIVE  MAINTENANCE 
EFFECT  CHANGES  TO  SECAS  SYSTEM 
INITIATE  SURVEYS  ANO  DAMAGED  SHIPMENT  REPORTS 
SUPERVISE  INVENTORIES  AND  MAINTAIN  CUSTODY  RECOROS 
PREPARE  ENVIRONMENTAL  POLLUTION  CONTROL  REPORTS 
REPAIRS  TO  INDICATOR  AND  RECEIVER  REGULATORS 
SUPERVISE  MAINT  OF  ORDNANCE  ELECTRIC/ ELECTRON 1C  SYS 
INSPECT  REPAIRS,  ELECTRIC/ELECTRONIC  EQUIP 
ANALYZE  ELECTRIC/ ELECTRONIC  DISCREPANCY  TRENDS 
SUPERVISE  ASHORE  STOWAGE  OF  EXPLOSIVE  ORDNANCE 
SUPERVISE  AND  INSPECT  ORDNANCE  STOWAGE 
DIAGNOSE  EFFECTS  OF  ENVIRONMENTAL  CONDITIONS 
INSPECT  COMPLETED  MODERNIZATIONS 
SUPERVISE  SAFETY  PROCEDURES  FOR  INSPECTIONS 
PREPARE  WEAPONS  DEPARTMENT  REPORTS 
IMPLEMENT  LOADING  AND  STOWAGE  PLANS 
INTERPRET  REQUIREMENTS  FOR  NAVY  INSPECTIONS 
SUPERVISE  WORK  ANO  ESTABLISH  WORK  PRIORITIES 
PREPARE  PREVENTIVE  MAINTENANCE  QUARTERLY  SCHEDULES 
PERFORM  ARMAMENT  INVENTORIES 

SUPERVISE  SHIPBOARD  ENVIRONMENTAL  POLLUTION  CONT 
SUPERVISE  ALIGNMENT  OF  GUN.  MISSILE  BATTERIES 
PREPARE,  SUBMIT  ALL  ADMINISTRATIVE  REPORTS 
REPORT  OPERATIONS  IN  OWN  AREA  OF  RESPONSIBILITY 
PREPARE  LOCAL  DIRECTIVES  AND  INSTRUCTIONS 
PREPARE  CORRESPONDENCE 

ESTABLISH  MAXIMUM  PERSONNEL  UTILIZATION 
ORGANIZE  AND  SCHEDULE  TRAINING  PROGRAMS 
ESTIMATE  TIME.  MATERIAL.  LABOR  REQUIREMENTS 
SUPERVISE  INSPECTION  PROCEDURES 
REVIEW.  EVALUATE  TEST/CHECKOUT  PROCEDURES 
ADMINISTER  A LONG-RANGE  PM  PROGRAM 
CONTROL  ORONANCE  PROCUREMENT  EXPENDITURES 
CODRDINATE,  MANAGE  DEPARTMENT  ORONANCE  SAFETY 
PLAN.  ORGANIZE,  IMPLEMENT,  CONTROL  ACTIVITIES 
FORECAST  FUTURE  REQUIREMENTS 
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GM  CM35490  ESTABLISH  GOALS,  OBJECTIVES  ANO  PRIORITIES 
GM  CM35492  REVIEW  PERSONNEL,  EQUIPMENT,  MATERIAL  REQMNTS 
GM  CM35551  SUPERVISE  OPERATIONS  AND  PROCEDURES 
GM  CM35552  PREPARE  MAINT  PERIODIC  AND  RECURRING  REPORTS 
GM  CM35553  DEVELOP  ACCOUNTING  PROCEDURES  FOR  ALL  WORK 
GM  CMS 1 1 56  COORDINATE  SURFACE  WEAPONS  SYSTEMS  OVERHAUL 

GM  CMS 1 1 57  ANALYZE  DISCREPANCY  TRENDS  IN  EQUIPMENT  RECORDS 

GM  CM52298  DEVELOP  OPERATING  BUDGETS,  MONITOR  EXPENDITURES 
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30333  41 

30334  41 


57  61 
57  61 
54 

52  54 
52  54 
59  61 
54  57  61 
54  57  61 
54  57  61 


61 

57 


61 


EN 

2 

30338 

41 

54 

57 

61 

EN 

2 

30339 

54 

61 

EN 

2 

30342 

41 

54 

59 

EN 

2 

30343 

41 

52 

54 

61 

EN 

2 

30344 

41 

57 

59 

61 

EN 

2 

30347 

42 

52 

54 

61 

81 

EN 

2 

30358 

41 

59 

61 

EN 

2 

30372 

41 

57 

59 

61 

81 

EN 

2 

30374 

61 

71 

EN 

2 

30911 

41 

52 

54 

57 

61 

EN 

2 

30912 

41 

52 

54 

61 

EN 

2 

30913 

41 

57 

61 

EN 

2 

11811 

41 

52 

54 

57 

59  61 

EN 

2 

42 

57 

59 

61 

EN 

2 

31043 

41 

52 

54 

61 

EN 

2 

31044 

41 

57 

59 

61 

81 

EN 

2 

31049 

42 

61 

71 

81 

EN 

2 

31051 

61 

71 

EN 

2 

31061 

54 

56 

58 

*1 

EN 

2 

31092 

41 

52 

54 

57 

61 

EN 

2 

31093 

54 

61 

EN 

2 

31448 

41 

57 

61 

71 

EN 

2 

31449 

41 

57 

61 

71 

EN 

2 

31450 

41 

57 

59 

61 

81 

EN 

2 

31451 

31452 

41 

5? 

54 

61 

81 

EN 

2 

41 

61 

2 

2 

2 

2 


31453  01 
35112  01 
35342  01 
48245  61 


11  12 


71  72 


*59 

EN 

2 

48256 

41 

52 

5* 

61 

*60 

EN 

2 

51114 

01 

11 

12 

*61 

EN 

2 

54801 

01 

53 

5* 

*62 

EN 

2 

54802 

01 

*63 

EN 

2 

94156 

41 

» 

5* 

57 

61 

*6* 

EN 

2 

94157 

42 

81 

*65 

EN 

1 

11454 

33 

42 

57 

58 

61 

72 

*66 

EN 

1 

30320 

41 

52 

5* 

56 

58 

61 

81 

*67 

EN 

1 

30327 

41 

59 

61 

*68 

EN 

1 

30339 

41 

52 

5* 

56 

57 

61 

81 

*69 

EN 

1 

30340 

41 

52 

5* 

59 

61 

*70 

EN 

1 

30348 

41 

52 

5* 

59 

61 

81 

*71 

EN 

1 

30350 

41 

52 

5* 

57 

61 

*72 

EN 

1 

30914 

41 

52 

5* 

57 

59 

61 

81 

*73 

EN 

1 

30915 

41 

52 

5* 

57 

59 

61 

81 

*7* 

EN 

1 

31012 

41 

42 

58 

61 

71 

*75 

EN 

1 

31025 

41 

57 

61 

*76 

EN 

1 

31031 

12 

41 

58 

61 

*77 

EN 

1 

31037 

61 

81 

*78 

EN 

1 

31040 

41 

52 

5* 

61 

*79 

EN 

1 

31041 

41 

52 

5* 

61 

*80 

EN 

1 

31042 

41 

52 

5* 

57 

61 

*81 

EN 

l 

31094 

53 

55 

61 

*82 

EN 

1 

31097 

55 

S6 

61 

71 
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52  54  57  61 
52  54  59  61  81 
02 


403 

EN 

1 

31253 

41 

484 

EN 

1 

31454 

41 

485 

EN 

1 

35323 

01 

486 

EN 

1 

51167 

12 

4B7 

EN 

1 

51168 

14 

488 

EN 

1 

54827 

01 

409 

EN 

C 

30359 

41 

490 

EN 

c 

30674 

32 

491 

EN 

c 

31045 

41 

49? 

EN 

c 

31046 

41 

493 

EN 

c 

31047 

41 

494 

EN 

c 

31077 

11 

495 

EN 

c 

31095 

41 

496 

EN 

c 

35432 

01 

497 

EN 

c 

35433 

12 

498 

EN 

c 

35885 

31 

499 

EN 

c 

35886 

12 

500 

EN 

c 

42278 

31 

501 

EN 

c 

42279 

33 

502 

EN 

c 

42367 

31 

503 

EN 

c 

51069 

61 

504 

EN 

c 

51169 

02 

505 

EN 

c 

51475 

12 

506 

EN 

c 

51476 

55 

507 

EN 

c 

51477 

55 

508 

EN 

c 

51478 

55 

509 

EN 

c 

54804 

11 

510 

EN 

c 

98021 

33 

511 

EN 

C$31410 

42 

512 

EN 

CS31455 

42 

513 

EN 

CS31456 

58 

514 

EN 

CS35072 

01 

515 

EN 

CS35362 

01 

516 

EN 

CS35476 

11 

517 

EN 

CS35478 

11 

518 

EN 

c 

S35479 

11 

519 

EN 

c 

S35480 

14 

520 

EN 

CS35884 

12 

521 

EN 

r- 

W 

S35887 

12 

522 

EN 

CS44375 

13 

523 

EN 

CS51073 

33 

524 

EN 

CS51206 

33 

525 

EN 

CS98280 

12 

526 

EN 

CS98281 

12 

527 

EN 

CM20060 

13 

528 

EN 

CH31457 

12 

529 

EN 

CM35365 

11 

530 

EN 

C 

M35366 

04 

531 

EN 

c 

M35483 

12 

532 

EN 

CM35489 

12 

533 

EN 

CM35490 

12 

534 

EN 

CH35492 

12 

535 

EN 

CM46616 

12 

536 

EN 

CH51072 

12 

537 

EN 

CM51075 

12 

538 

EN 

CM51179 

33 

539 

EN 

CM52298 

12 

540 

EN 

CM54806 

42 

541 

GHG 

3 

14086 

41 

542 

GMG 

3 

14564 

53 

543 

GMG 

3 

14565 

41 

544 

GHG 

3 

14570 

53 

545 

GMG 

3 

15305 

41 

546 

GHG 

3 

15307 

41 

547 

GHG 

3 

15314 

54 

548 

GHG 

3 

15315 

41 

549 

GMG 

3 

16027 

53 

550 

GMG 

3 

16033 

42 

551 

GHG 

3 

16034 

01 

04 


53 

54 

33 

41 

57 

59 

61  81 

52 

54 

57 

61 

52 

54 

57 

61 

54 

57 

58 

61 

41 

52 

54 

61 

52 

54 

56 

61 

33 

42 

58 

61 

82 

32 

33 

41 

61 

41 

42 

61 

82 

14 

58  71 
71 
71 
13 

42  58  61  71  72 
58  60  82 
55  61  71 
71  82 


32 


01  33 

02  04  31 
13 

13  14 

33  34 

13  14 

14  32  34 
82 


14  33 


11  12  13 
14  33 
14 

13  14 

14 


13  14 
61  71  82 

53  61 

5^  61 

54  61 

52  53  54  59 

53  54  55  56 

55  58  61 

52  54  59  61 

54  55  56  61 
57  59  61 

41  59  61 


6& 


61 
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552 

GMG 

3 

16304 

42 

57 

61 

91 

553 

GMG 

3 

16334 

41 

52 

54 

59 

61 

554 

GMG 

3 

16390 

41 

57 

59 

61 

555 

GMG 

3 

16399 

41 

57 

59 

61 

556 

GMG 

3 

16400 

41 

42 

57 

61 

91 

557 

GMG 

3 

16402 

41 

42 

59 

61 

550 

GMG 

3 

16403 

41 

53 

57 

59 

61 

559 

GMG 

3 

16404 

41 

53 

60 

61 

560 

GMG 

3 

16405 

41 

42 

57 

61 

561 

GMG 

3 

16407 

41 

52 

54 

61 

562 

GMG 

3 

16400 

42 

57 

59 

61 

563 

GMG 

3 

17079 

41 

52 

54 

59 

61 

564 

GMG 

3 

17001 

41 

52 

54 

59 

61 

565 

GMG 

3 

17365 

41 

52 

54 

61 

566 

GMG 

3 

10017 

41 

57 

61 

567 

GMG 

3 

10022 

41 

53 

55 

57 

61 

560 

GMG 

3 

24023 

41 

42 

53 

55 

57 

61 

569 

GMG 

3 

24025 

41 

59 

61 

570 

GMG 

3 

24390 

53 

61 

571 

GMG 

3 

24391 

53 

54 

61 

572 

GMG 

3 

24497 

53 

54 

61 

573 

GMG 

3 

24500 

41 

59 

61 

574 

GMG 

3 

24501 

42 

59 

01 

575 

GMG 

3 

24502 

52 

54 

59 

61 

576 

GMG 

3 

24503 

41 

53 

61 

577 

GMG 

3 

20016 

53 

61 

570 

GMG 

3 

20019 

53 

61 

579 

GMG 

3 

20020 

55 

500 

GMG 

3 

29236 

41 

57 

59 

61 

501 

GMG 

3 

29230 

41 

42 

59 

61 

81 

502 

GMG 

3 

29239 

41 

59 

61 

503 

GMG 

3 

29549 

41 

57 

59 

61 

504 

GMG 

3 

40525 

57 

59 

61 

81 

505 

GMG 

3 

46030 

02 

55 

61 

506 

GMG 

3 

40241 

01 

41 

59 

61 

507 

GMG 

3 

51011 

01 

500 

GMG 

3 

51026 

01 

5B9 

GMG 

3 

54192 

01 

41 

59 

590 

GMG 

3 

54759 

01 

42 

59 

60 

591 

GMG 

3 

54760 

53 

54 

61 

592 

GMG 

3 

54761 

01 

41 

53 

54 

61 

593 

GMG 

3 

79272 

54 

59 

61 

594 

GMG 

3 

92336 

42 

57 

61 

81 

595 

GMG 

3 

94424 

42 

57 

59 

61 

81 

596 

GMG 

3 

94500 

57 

61 

597 

GMG 

2 

14043 

41 

57 

61 

590 

GMG 

2 

14566 

61 

71 

599 

GMG 

2 

14567 

41 

53 

55 

61 

600 

GMG 

2 

14790 

41 

53 

61 

601 

GMG 

2 

15023 

41 

53 

57 

61 

602 

GMG 

2 

15309 

41 

59 

61 

603 

GMG 

2 

15311 

41 

42 

59 

61 

71 

61 

604 

GMG 

2 

15312 

41 

54 

59 

61 

605 

GMG 

2 

16004 

42 

56 

59 

61 

72 

606 

GMG 

2 

16021 

41 

52 

54 

61 

607 

GMG 

2 

16022 

32 

600 

GMG 

2 

16054 

42 

59 

61 

72 

609 

GMG 

2 

16099 

41 

51 

52 

53 

54 

61 

610 

GMG 

2 

17366 

53 

55 

57 

611 

GMG 

2 

17367 

41 

59 

61 

612 

GMG 

2 

10419 

41 

57 

59 

61 

613 

GMG 

2 

24026 

41 

53 

61 

614 

GMG 

2 

24027 

41 

57 

61 

615 

GMG 

2 

24393 

61 

71 

616 

GMG 

2 

20017 

42 

57 

58 

61 

82 

617 

GMG 

2 

20025 

53 

55 

610 

GMG 

2 

20362 

26 

619 

GMG 

2 

29237 

41 

53 

54 

61 

620 

GMG 

2 

29243 

41 

52 

54 

59 

61 
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621 

GMG 

2 

29245 

41 

57 

59 

622 

GMG 

2 

29246 

41 

52 

54 

623 

GMG 

2 

29248 

41 

54 

56 

624 

GMG 

2 

29249 

41 

54 

56 

625 

GMG 

2 

29250 

41 

52 

54 

626 

GMG 

2 

29251 

41 

54 

56 

627 

GMG 

2 

29252 

01 

02 

12 

628 

GMG 

2 

36450 

01 

02 

629 

GMG 

2 

36451 

01 

02 

630 

GMG 

2 

51114 

01 

11 

631 

GMG 

2 

54708 

01 

632 

GMG 

2 

54813 

01 

633 

GMG 

2 

54814 

01 

53 

54 

634 

GMG 

2 

54815 

01 

635 

GMG 

1 

14062 

61 

71 

636 

GMG 

l 

15313 

41 

51 

52 

637 

GMG 

1 

16023 

33 

42 

61 

638 

GMG 

1 

18018 

61 

71 

639 

GMG 

1 

18021 

41 

53 

55 

640 

GMG 

1 

28018 

42 

53 

55 

641 

GMG 

1 

29253 

41 

52 

54 

642 

GMG 

i 

29254 

41 

54 

61 

643 

GMG 

l 

29255 

41 

54 

57 

644 

GMG 

1 

29256 

41 

54 

57 

645 

GMG 

1 

29551 

41 

54 

57 

646 

GMG 

1 

29552 

41 

54 

57 

647 

GMG 

1 

38344 

01 

12 

648 

GMG 

1 

38345 

01 

li 

12 

649 

GMG 

1 

38346 

01 

02 

650 

GMG 

1 

38887 

01 

02 

651 

GMG 

1 

38888 

14 

33 

652 

GMG 

1 

51167 

12 

653 

GMG 

1 

51168 

14 

654 

GMG 

1 

54816 

01 

12 

14 

655 

GMG 

1 

54813 

11 

12 

656 

GMG 

l 

54844 

02 

33 

657 

GMG 

1 

98255 

11 

658 

GMG 

C 

14042 

42 

51 

52 

659 

GMG 

c 

14044 

33 

34 

55 

660 

GMG 

c 

14045 

51 

52 

53 

661 

GMG 

c 

14064 

12 

14 

662 

GMG 

c 

16032 

33 

61 

663 

GMG 

c 

16411 

33 

61 

664 

GMG 

c 

17426 

71 

665 

GMG 

c 

17427 

42 

5 1 

52 

666 

GMG 

c 

20276 

33 

667 

GMG 

c 

38892 

01 

11 

668 

GMG 

c 

38893 

33 

669 

GMG 

c 

38897 

12 

670 

GMG 

c 

51079 

14 

33 

671 

GMG 

c 

51169 

14 

672 

GMG 

c 

54766 

01 

53 

54 

673 

GMG 

c 

98336 

33 

674 

GM 

CS17417 

33 

61 

675 

GM 

C S 35341 

11 

12 

676 

GM 

CS35476 

12 

13 

35 

677 

GM 

CS35478 

13 

14 

678 

GM 

CS35479 

11 

679 

GM 

CS35480 

14 

33 

34 

680 

GM 

£ 

S44375 

12 

14 

32 

681 

GM 

CS5U53 

12 

14 

682 

GM 

CS51154 

33 

34 

683 

GM 

CS51155 

12 

13 

14 

684 

GM 

CS  51206 

12 

14 

33 

685 

GM 

CS54196 

33 

686 

GM 

CM20291 

33 

687 

GM 

c 

M35483 

14 

33 

688 

GM 

CM35489 

12 

14 

689 

GM 

CM35490 

12 

14 

81 


57  58  82 


57  61  81 
81 


72 


71 
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690 

GM 

CM35492 

12 

691 

GM 

CM35551 

33 

61 

692 

GM 

CM35552 

11 

12 

693 

GM 

CM35553 

12 

14 

69<* 

GM 

CM51156 

33 

695 

GM 

CM5U57 

12 

696 

GM 

CM52298 

1* 

« 
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1 

OFFLINE  READ 

ETAM  VCDESC 

2 

6920LLC003292 

10 

12 

21 

22 

35 

62 

3 

6910LLC003318 

02 

12 

21 

31 

32 

33 

4 

69 3 OLL COO 10$ 8 

09 

14 

21 

22 

23 

26 

5 

69 1 OLLCOO 1564 

02 

11 

21 

33 

34 

63 

6 

7 

6930LLC001407 

6910LLC002061 

09 

03 

11 

11 

1? 

21 

32 

23 

45 

26 

52 

8 

6910LLC002062 

03 

11 

21 

32 

45 

52 

9 

6910005723079 

03 

11 

21 

32 

45 

52 

10 

6910LLC002063 

03 

11 

21 

32 

45 

52 

11 

6910LLC003395 

03 

11 

21 

32 

45 

52 

12 

6910LLC003396 

03 

11 

21 

32 

45 

52 

13 

6910LLC003397 

03 

11 

21 

32 

45 

52 

14 

6910LLC003398 

03 

11 

21 

32 

45 

52 

15 

6910LLC001403 

03 

11 

21 

32 

45 

52 

16 

6910LLC003399 

03 

11 

21 

32 

45 

52 

17 

6910LLC003400 

03 

11 

21 

32 

45 

52 

18 

691 0LLC00340 1 

03 

11 

21 

32 

45 

52 

19 

6910LLC003402 

03 

11 

21 

32 

45 

52 

20 

691 OLL COO 3 40 3 

03 

11 

21 

32 

45 

52 

21 

6910LLC000468 

03 

11 

21 

32 

45 

52 

22 

69 1 OLLC000469 

03 

11 

21 

32 

45 

52 

23 

6910LLC000470 

03 

11 

21 

32 

45 

52 

2* 

6910LLC001 170 

03 

11 

21 

32 

45 

52 

25 

6910LLC00047L 

03 

11 

21 

32 

45 

52 

26 

6910LLC000472 

03 

11 

21 

32 

45 

52 

27 

6910005231416 

03 

11 

21 

32 

45 

52 

28 

6910LLC000473 

03 

11 

21 

32 

45 

52 

29 

6910LLC000474 

81 

ti 

21 

32 

45 

52 

30 

6940LLC000371 

14 

21 

32 

65 

31 

6940006641435 

09 

14 

21 

33 

42 

55 

32 

6910LLC003636 

05 

12 

21 

35 

43 

51 

33 

6910LLC003665 

03 

t? 

21 

36 

42 

52 

3* 

6910LLC001614 

05 

21 

32 

42 

52 

35 

6910LLC001615 

05 

11 

21 

32 

42 

52 

36 

6910LLC001616 

05 

11 

21 

32 

42 

52 

37 

6910LLC001617 

05 

11 

21 

32 

42 

52 

38 

6910LLC003437 

05 

11 

21 

32 

42 

52 

39 

6940LLC003443 

85 

tt 

21 

32 

42 

52 

*0 

691 OLLCOO 3444 

05 

21 

32 

42 

52 

41 

6940LLC003445 

05 

11 

21 

32 

42 

52 

42 

6 940 LL COO 3 44 7 

05 

11 

21 

32 

42 

52 

43 

6940LLC003448 

05 

11 

21 

32 

42 

52 

44 

6940 LLC 00 3 449 

05 

11 

21 

32 

42 

52 

45 

6940005271901 

05 

11 

21 

32 

42 

52 

46 

6940005271904 

05 

11 

21 

32 

42 

52 

47 

6910005271905 

81 

11 

21 

32 

42 

52 

48 

6910005606623 

11 

21 

32 

42 

52 

49 

6940005606627 

05 

11 

21 

32 

42 

52 

50 

6910005606628 

05 

11 

21 

32 

42 

52 

51 

52 

6940005723015 

6910005723016 

81 

11 

11 

21 

21 

32 

32 

42 

42 

52 

52 

53 

6910005723017 

05 

11 

21 

32 

42 

52 

54 

6940005723018 

95 

11 

21 

32 

42 

52 

55 

6910006580654 

05 

11 

21 

32 

42 

52 

56 

6940007123047 

05 

11 

21 

32 

42 

52 

57 

6940008506112 

05 

11 

21 

32 

42 

52 

58 

69  lOLLCOOl 162 

05 

11 

21 

32 

42 

52 

59 

60 

6910LLC002134 

6920008289165 

81 

ti 

It 

32 

35 

42 

42 

52 

52 

61 

6920006499282 

05 

12 

21 

22 

35 

62 

62 

6910LLC000900 

03 

11 

21 

32 

42 

52 

63 

6930LLC000593 

09 

13 

21 

32 

33 

65 

64 

6910LLC002009 

02 

12 

13 

14 

21 

31 

56 

65 

73 

82 

63 

52 

61 

71 

81 

33 

34 

45 

55 

66 

53 

61 

71 

81 

35 

45 

5? 

65 

71 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

81 

li 

81 

66 

72 

81 

66 

72 

83 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

61 

61 

71 

81 

*4 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

61 

71 

81 

71  81 
81 


It  It 
61 
61 
61 

61  . 
it  ?t 
it  ?t 


?t 

?t 


81 

81 

81 

81 

It 

It 

81 

81 


61 

71 

81 

61 

71 

81 

61 

71 

81 

66 

73 

81 

54 

65 

71 

81 

*1 

71 

81 

55 

63 

72 

81 

32 

33 

34 

41 

64  51  54  62  63  64  72  82  83 
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PAGE  NUMBER  : 1 

SOURCE  CARO  LISTING  FOR 
OFFLINE  READ  ETAM  VDATA 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

l* 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 


OFFLINE  READ  ETAM  VDATA 


6920LLC0032923C1 16-3 
6910LLC0033183A79-1 
6930LLC0010082C30-1 
6910LLC0015641H4-1 
6930LLC0014079E6-1 
6910LLC00206112C01A 
6940LLC000371 14B21B-1 
6940006641435152 1-1 
691DLL CO 036362 9EX1B 


BOOBY  TRAP  SIMULATOR*  TELEPHONE 
TRANSPARENCY*  M48  TANK:  TRACKS.  SUSPENSION 
F-4B  AIRCRAFT  COCKPIT  PROCEDURES  TRAINER 
AEROLOGY  DISPLAY  SET 
EJECTION  SEAT*  UNIVERSAL 
TOTAL  DIFFERENTIAL  (HATH)  TRAINING  AID 
ASW  SYSTEM  SIMULATOR-JEZEBEL 
APS-T3*  ULTRASONIC  TRAINER 
FUEL  PUMP*  AUTOMOTIVE.  TRAINING  AIO 


0 7ULLUwu;0  30c4#caid  rucL.  ruir  * AUiunuiivc*  l iriliw 

691 OLL COO 36 65 18F22B-1  FLASH  BLINONESS  INDOCTRINATION  TRAINER 


MATH, 

MATH, 

POLAR 

MATH, 

MATH 


696000527190126AU 
69200082891653C52E-1 
6920006699 28 23CS5C-1 
6910LLC0009003E36-1 
6930LLC00059315H12-1 
6910LLC00200917H2-L 
6910LLC00206212CD-2 
691000572307912:0-3 
691DLLC00206312CD-6 
6910LLC00339512:0-5 
6910LLC00339612: 0-6 
6910LLC003397l2:0-7 
6910LLC00339812:0-8 
691 OLL C001 603 12: 0-10 
6910LLC00339912:0-ll 
691DLLC00360012C0-13 
691 0LLCO0360112C 0-16 
6910LLC00360212CD-15 
6910LLC00360312CD-16 
6910LLC00066812C0-17 
6910LLC00066912CD-18 
6910LLC 00 06701 2C 0-19 
6910LLC00117012:0-20 
6910LLC000671 12CD-21 
6910LLC00067212:D-22 
691000523161612:0-23 
6910LLC00067312: 0-26 
69 10LLC000676 12:0-25 
6910LLC00161626A-11 
6910LLC00161526A-11 
6910LLC00161626A-11 
6910LLC00 16172 6A -11 
6910LLC00363726A-11 
6960LLC00366326A- l 1 
6910LLC00366626A-11 
6960LLC003665264-11 
6960LLC00366726A-11 
6960LLC 003668 26A- 11 
6960LLC00366926A-11 
6 9600052719012 6A -11 
696000527 l 90626 A- 1 1 
691000527190526A-U 
69 100056066  2 3 26A- 1 1 
696000560662726A-11 
69 1000 560662 826A- 11 
69600057  2 301526A-H 
6910005 72301626A-11 
691000572301 726A- 11 
696000572301826A-U 
691 00 06 5 80 65 6 2 6A -11 
6960007 12306726A- l 1 
6960008 506 11 22 6A- l l 
6910LLC00116226A-11/8  COMPUTED 


TRANS*. 


ELECTRONIC  CIRCUIT  TRAINER 
TARGET  SCORING  MECHANISM,  SINGLE  POP-UP 
SIMULATOR.  SMALL  ARMS,  FLASH-NOISE 
106MM  RECOILLESS  RIFLE,  FIRING  MECH. 

R-6B,  AIRCRAFT  TACTICS  TRAINER 
SIMULATOR.  GENERAL  PURPOSE 
GRADIENT  OF  A FUNCTION  OEMONSTRATOR 
TRIPLE  VECTOR  PRODUCT  DEMONSTRATOR 
STOKES  THEORM  DEMONSTRATOR 
QUINCUNX  BINOMINAL  EXPANSION  OEMONSTRATOR 
ORTHOGRAPHIC  PROJECTION  OEMONSTRATOR 
TRIGONOMETRIC  FUNCTION  TRAINING  AID 
COMPONENT  INTEGRATOR  OEMONSTRATOR  T/A 
TRIHEDRON  DEMONSTRATOR  TRAINING  AIO 
CURVE  OEMONSTRATOR  TRAINING  AIO 
VECTOR  DISTRIBUTION  LAWS  TRAINING  AIO 
SAMPLING  BOX  TRAINING  AIO 
CYLINDRIC  COORDINATES  OEMONSTRATOR  T/A 
SPHERICAL  COORDINATES  DEMONSTRATOR  T/A 
MATH,  VECTOR  ACCELERATION  OEMONSTRATOR  T/A 

NOMOGRAPHIC  PROJECTION  OEMONSTRATOR  T/A 
PROJECTION,  DEMONSTRATOR  TRAINING  AID 
PLANIMETER  MATH  OEMONSTRATOR 
ORDER  OF  DIFFERENTIATION.  OEM  T/A 
riAin,  FINITE  ROTATION,  DEMONSTRATOR  T/A 
CORIOLIS  FORCE  OEMONSTRATOR  TRAINING  AIO 
MATH,  DIRECTION  COSINE.  OEMONSTRATOR  T/A 
MATH.  SKEW  LINE,  DEMONSTRATOR  TRAINING  AID 
AMPLIFIER  3-STAGE  HF  LAB  CKT  ANALYSIS  CHASSIS 
ULTRASONIC,  SONAR.  LAB  CAU-13 
VTVM/AM  WITH  AC/RF  PROBE  27 
LAB  CKT  ANALYSIS  CHAS  GAS  TUBE  REGULATOR 
RAOAR/MI CROWAVE  SYSTEM  LECTURE  OEM  UNIT 
LAB  CKT  ANALYSIS  TROUBLESHOOTING  KIT.  CAU-2 
VOLTAGE  REGULATOR  LECTURE  OEM  UNIT  L&U-2 
FREQUENCY  MODULATION  LAB  CKT  ANALYSIS  UNIT 
COMPUTER,  DIGITAL,  BINARY  READOUT  UNIT.  22A 
V REGULATOR  LAB  CKT  ANALYSIS  CHASSIS  CAU-3A 
CMPTR  FJNO  LAB  CKT  ANALYSIS  UNIT  CAU-10 
ELECTRONICS  FUNDAMENTALS  UNITS  EFU-1 
LABORATORY  CIRCUIT  ANALYSIS  UNIT  CAU-1 
ELEK  CKT  LECTURE  DEMONSTRATION  UNIT  LOU-l 
RADAR  MICROWAVE  SYS/TEST  EQPT  TET1  TRAINER 
VOLTAGE  REGULATOR  LAB  CKT  ANAL  UNIT  CAU-3 
FREQUENCY  MODULATION  LECTURE  OEM  UNIT  LOU-3 
RAOAR/MI CROWAVE  SYS  CKT  ANALYSIS  UNIT  CAU-5 
SONAR  LECTURE  DEMONSTRATION  UNIT  LOU-5 
SYNCHRO  LECTURE  OEM  UNIT  WITH  MOTORS  LOU-6 
SONAR  LAB  CIRCUIT  ANALYSIS  UNIT  CAU-6 
TRANSISTOR  LECTURE  DEMONSTRATION  UNIT  LOU-T 
TRANSISTOR  LAB  CIRCUIT  ANALYSIS  UNIT  CAU-7 
SYNCHRO  LAB  CKT  ANALYSIS  UNIT  CAU-9 
‘ LECTURE  DEM  UNIT  LOU-8 


33100 

18950&88 

266000 

3791000 

our 

271?6o8 


151531800 

*2?I§88 


5000 

i5m 


60 

20 

26 


85C 

\ll\ 

29o88 


SYSTEM 


6910LLC002 13626A-11A  RADAR  CIRCUIT  CHASSIS  TRANSISTORIZED 


531500 

30000 
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SECTION  D.6 

SOURCE  LISTINGS  OF  PL/1  PROGRAMS 


The  following  represents  the  source  program  listings  of  the  eighteen  PL/1 
program  modules  involved  in  the  ETAM  project  up  through  the  Range-of- Effect 
search  and  search  results  print. 

In  the  pages  following. 

PI,  P2,  P3 P20. 

order  of  processing. 

, the  programs  are  source-listed  in  alphabetic  order, 
The  order  presented  immediately  below  is  the  logical 

Program 

Name 

Program  Description 

PI  8 

Initialization  of  the  Master  Reference  data  set, 
ETAM/MREF 

PI  6 

Initialization  of  the  Descriptor  Master  Index, 
ETAM/DIND 

P14 

Initialization  of  the  Course  data  file,  ETAM/COURSE 

P7 

Setup  of  the  Course  CIN  and  CDP  directories  (ETAM/DCIN 
and  ETAM/DCDP,  respectively) 

P7A 

Course  Descriptor  file  load  (ETAM/DESC) 

P7B 

Printer  dump  of  the  contents  of  the  Abbreviated  Course 
data  base  by  option: 

A = All  Course  data,  sorted  by  CIN 
B = All  Course  data,  sorted  by  CDP 
C = Course  descriptor  data 

P8  Load  of  the  Abbreviated  Vehicle  data  file  (ETAM/VEHS), 

Vehicle  Directory  (ETAM/DVEH)  and  Vehicle  Descriptor 
File  (ETAM/VDESC) . 

P8A  Print  of  Abbreviated  Vehicle  data  base  contents,  via 

Option  as  follows: 

A = Print  all  Vehicle  records,  ordered  by  Stock 
Number 

B = Print  Descriptor  data  assigned  to  Vehicles 

P9  Load  the  Abbreviated  Tasks  data  file  (ETAM/TASKS) , 

Tasks  Directory  (ETAM/DTASK) , and  Tasks  Descriptor 
File  (ETAM/TDESC) . 

P9A  Print,  under  option  control,  of  the  contents  of  the 

Abbreviated  Tasks  data  base.  Options  are  as  follows: 

A = Print  all  Task  data 
B * Print  Descriptor  data  assigned  to  Tasks 
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Program 

Name 

P20 


P17 


P2 

P3 

P5A 

P5B 

P5C 

PI 


Program  Description 

Print,  via  selection,  the  exact  Descriptor  assignments 
to  each  Course,  Vehicle,  or  Task  of  the  system.  Options 
are  as  follows: 

C - Print  Courses 
V - Print  Vehicles 
T - Print  Tasks 

Initialize  the  files  associated  with  a new  ETAM  project. 
This  includes  files  named  "projectname"/ 

ID 

REC 

REV 

REJ 

Interactive  edit  of  the  Range-of-Effects  (ROE)  search 
arguments  in  files  projectname/  REC,  REV,  and  REJ 

Range-of-Effects  (ROE)  search  module 

Print  of  raw  (un-edited)  results  of  an  ROE  search 

Interactive  edit  of  the  ROE  search  results 

Print  of  the  ROE  extract  results 

Print  contents  of  any  of  the  files  associated  with  a 
given  project. 


1 
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PAGE  NUMBER 


SOURCE  CARD  LISTING  FOR 
Pi:  /*  GENERAL-PURPOSE 


PROJECT  FILE  PRINT  - THU/24/MAR/77  */ 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 


Pi: 


33 

34 

35 

36 

37 

38 

39 
AO 
A 1 
A2 
A3 
AA 
A5 
A6 
A 7 
A8 
*•9 

50 

51 
62 
53 
5 A 

55 

56 

57 
68 

59 

60 
61 
62 
63 
6A 

65 

66 

67 

68 


/* 


*/ 


/*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/2A/MAR/ 77  */ 
PROC  OPTIONS  (MAIN)  ; 

REVISIONS  : 

24/MAR/ THU/77  - VERYFIRST  IMPLEMENTATION. 

TUE/29/MAR/77  - MOOS  PRIOR  TO  TRANSMIT  TO  NCSS. 


DECLARE  ( DINO,  COURSE,  VEHS,  TASKS  ) 

FILE  RECORD  DIRECT  KEYED  ENV 


( REG  I ONAL ( 1 ) ) 


13 

DECLARE 

DTYPE  (21) 

CHAR 

14 

•ID  ' , 

•EXO  ', 

15 

•RRPJ' , 

•RRPK' , 

16 

•SCEN' , 

• ALTP' , 

17 

•RfcC  ', 

•REV  ', 

18 

•EXC  ' . 

•EXJ  ', 

19 

•TRER'  , 

• F INR  • 

20 

21 

DECLARE 

( FLAGS ( 20 ) , 

I F LAG  ) 

22 

NAME4 

CHAR 

23 

( CARO,  DLINE 

) 

24 

DL4 

CHAR 

25 

F4 

CHAR 

26 

F2 

CHAR 

27 

CilO 

CHAR 

28 

FN 

CHAR 

29 

FNME 

CHAR 

30 

WAY  (11:21) 

LABEL 

31 

32 

DECLARE 

TTLS  (21) 

CHAR 

(A)  STATIC  IN  I T ( 


) 


' BPT  •, 
•VQAL • , 

•REJ  ' , 
• EXV  ', 


• RKP 
'VARF* , 

' RESU' , 

• CMR  ', 


/* 

/* 


FIRST  10 

strictly 


ARE 

CARDS 


*/ 

*/ 


•REE  ',  /*  FROM  HERE  ON*/ 
/*  SPECIAL  FORMATTING  */ 


(A)  STATIC, 

CHAR  (80)  STATIC, 
(A)  DEF  DLINE  POS 
(A)  DEF  CARD, 

(2)  DEF  CARD, 

( 10)  DEF  CARD  POS 
(A)  DEF  CARO  POS 
(8)  STATIC, 


( 1) 


( 1)  , 

(3)  , 


ID  - 
EXD  • 
8PT  • 
RKP  - 
RRPJ 
RRPK 
V QAL 
VARF 
SCEN 
AL  TP 
REC  ■ 
REV  ■ 
REJ  - 
RESU 
REE  - 
EXC  - 
EXJ  - 
EXV 


(AO)  STATIC  INIT  ( 

PROJECT  DESCRIPTION', 

EXTRACT  DEFAULTS' , 

BENEFIT  PATTERN' , 

RISK  PROFILE', 

- RISK  REDUCTION  PROJECTS', 

- RISK  REDUCTION  PACKAGES', 

- VARIABLES  OUAL ITAT'VE' , 

- VARIABLE  REFERENCES', 

- SCENARIOS', 

- ALTERNATE  PROJECTS', 

COURSES  ROE  SEARCH  ARGUMENTS', 
VEHICLES  ROE  SEARCH  ARGUMENTS', 
TASKS  ROE  SEARCH  ARGUMENTS', 

- ROE  TOTAL  SEARCH  RESULTS', 
RESULTS' , 

- COURSES' , 

- JOBTASKS', 

- VEHICLES' , 


ROE  SEARCH 
EXTRACT  DB 
EXTRACT  DB 
EXTRACT  DB 


DECLARE 


•CMR  - COST  MODEL  RESULTS', 
•TRER  - TREE  RESULTS', 

•F INR  - F 

INANCIAL  RESULTS'  ) ; 

l D 

INDEX 

STATIC,  /*  OVERALL  DESCRIPTOR 

2 

DST  ART 

FIXEO  BIN,  /*  CKF.DESC. INDEX  */ 

2 

DEND 

FIXED  BIN, 

2 

NCAT 

FIXED  BIN, 

2 

NDESC 

FIXED  BIN, 

2 

CATEGORIES 

( 15)  , 

3 PCAT 

FIXED  BIN, 

3 SCAT 

FIXED  BIN, 

3 ECAT 

FIXED  BIN, 

2 

PDESC  (111 

) FIXED  BIN, 

COVER  (4) 

CHAR  (80)  BASED  (PCOV)  ; 

T2 

CHAR  (62)  STATIC  INIT  I 

INDEX  */ 
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PAGE  NUMBER  : 


69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 


SOURCE  CARD 
PI : /* 


LISTING  FOR 
GENERAL-PURPOSE 


PROJECT  FILE  PRINT  - THU/24/MAR/77  */ 


XXXXXXXXXX  / XXXX'  ), 


T2TTL 

T2NAME 


CHAR 

CHAR 


( 40) 
( 10) 


DEF 

DEF 


T2 

T2 


POS 

POS 


(23)  , 
( 10)  » 


( ROUTE,  REROUTE  ) LABEL  ; 


/*************************************/ 


DECLARE 


DL I NEB 
DLINECST 
DLINE28 
DLINE33 
DLINE36 
DLINE4D 
CARD7 


CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 


(8) 

( 36) 
(4) 

( 36) 
( 36) 
(40) 
( 70) 


DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 


DLINE 

DLINE 

DLINE 

DLINE 

DLINE 

DLINE 

CARD 


POS 

POS 

POS 

POS 

POS 

POS 

POS 


(8). 
(34) 
(28) 
( 33) 
( 36) 
(40) 
(8), 


NOD  I R 


( • ** 


CHAR  (35)  STATIC  INIT 
DIRECTORY  SEARCH  WAS  NEGATIVE  **' 


) 


NOAB  CHAR  (36)  STATIC  INIT 

( * (NO  ABBREVIATED  FILE  DATA  AVAILABLE)' 
DECLARE  l DISP,  PTR,  DP AGE , 1,  J,  K,  L,  LT,  NC, 

KALL,  KDEV,  KTYPE,  N,  NER,  NFIRST,  NLINE, 
NS,  NP AGE , NR,  NTYPE,  NV, 

NDF , NJ  ) FIXED  BIN  STATIC, 


96 

DTTL 

CHAR  (23)  STATIC  I’ 

97 

( • 

PAGE  NUMBER  : XXXX' 

98 

DDPGE 

PICTURE  ' ZZZ9' 

DEF 

99 

100 

MAXLTB 

FIXED  BIN  STATIC  H 

101 

102 

DECLARE 

C 1 1 80 

CHAR  (70)  DEF 

CARO 

103 

104 

DECLARE 

1 MAST 

STATIC, 

105 

2 REFS  (40) 

FIXED  BIN, 

106 

107 

1 RESULT 

BASED  (PR), 
PICTURE  '9', 

108 

2 RTYP 

109 

2 R ST  AT 

PICTURE  '9', 

110 

2 RDSTAT 

PICTURE  '9', 

111 

2 RESID 

CHAR  ( 13) , 

112 

113 

1 RESC 

BASED  (PR), 

114 

( 2 FI,  2 

F 2 

, 2 F3  ) CHAR 

( 1) 

115 

2 RESCIN 

CHAR  (8), 

116 

2 RESCDP 

CHAR  (4), 

117 

118 

1 REST 

BASED  (PR), 

119 

( 2 FI,  2 

F 2 

, 2 F3  ) CHAR 

( 1) 

120 

2 RATE 

CHAR  (5), 

121 

2 RANK 

CHAR  (2), 

122 

2 JOBTASK 

CHAR  (6), 

123 

124 

S 16 

CHAR  ( 16)  STATIC, 

125 

VI  (3) 

LABEL  ; 

126 

127 

/************ ****** 

****+**************/ 

128 

129 

DECLARE 

1 ACRS 

STATIC , 

/* 

130 

2 SET1, 

/♦  1 

131 

3 CDP 

CHAR  (4), 

132 

3 CIN 

CHAR  < 8 ) . 

133 

3 C ST 

CHAR  ( 16) , 

134 

3 N08C 

CHAR  (4), 

135 

3 NEC 

CHAR  (4), 

136 

2 PC 

CHAR  (2), 

137 

2 SET 2 , 

COURSE 


FILE 

*/ 


*/ 
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SOURCE  CARO 
Pi:  /* 


LISTING  FOR 
GENERAL-PURPOSE 


PROJECT  FILE  PRINT  - THU/24/MAR/77  */ 


138 

3 RMS 

CHAR  (3), 

139 

3 TYCRS 

CHAR  (2), 

140 

3 SVC 

CHAR  ( 1 ) , 

141 

3 MI 

CHAR  ( 1 ) , 

142 

2 STCD 

CHAR  ( 1) , 

143 

2 STOTE 

PICTURE  ' ( 5 ) 9 ' » 

144 

2 SET  3 * 

145 

3 TRAPS 

CHAR  (11, 

146 

3 T PC 

CHAR  (5), 

147 

2 ATTR 

PICTURE  • 99 V9 ' , 

148 

2 STBK 

PICTURE  • 99 V9 * , 

149 

2 CLEN 

PICTURE  *999’, 

150 

2 THRS 

PICTURE  '999*, 

151 

2 LHRS 

PICTURE  * 999 ' , 

152 

2 CA3B 

PICTURE  M519V99* 

153 

2 CC8 0 

CHAR  ( 1 1 ; 

154 

155 

DECLARE  1 CINDER  (3041 

STATIC,  /* 

156 

2 CHCIN 

CHAR  (8),  /* 

157 

2 C1NPTR 

FIXED  BIN, 

158 

159 

LOADCIN 

CHAR  (760)  BASED 

160 

COVCIN  (4) 

CHAR  (760)  BASED 

161 

162 

DECLARE  l CDPDIR  (1200) 

STATIC,  /* 

163 

2 CHCDP 

CHAR  (4),  /* 

164 

2 CDPPTR 

FIXED  BIN, 

165 

166 

LOAOCDP 

CHAR  ( 1200)  BASED 

167 

COVCDP  (61 

CHAR  ( 1200)  BASED 

168 

169 

/**************  **♦*******************♦/ 

170 

171 

DECLARE  1 AVEHICLES 

STATIC,  /* 

172 

2 ST3CKN 

CHAR  < 13) , /* 

173 

2 DEVOESIG 

CHAR  19). 

174 

2 DEVNAME 

CHAR  (47), 

1 75 

2 DEVCOST 

PICTURE  • ( 8 ) 9V99  * 

176 

2 CC80 

CHAR  ( 1 ) , 

177 

l 78 

VCOST 

FIXED  DEC  (10,2) 

179 

VOVER 

CHAR  (80)  BASED  ( 

180 

181 

OECLARE  1 VEHOIR  (2001 

STATIC,  /* 

182 

2 CHVEH 

CHAR  ( 13),  /* 

183 

2 VEHPTR 

FIXEO  BIN, 

184 

185 

COVVEH  (4) 

CHAR  ( 750)  BASED 

186 

LOADVEH 

CHAR  ( 750)  BASED 

187 

188 

/tit************************* **+++****/ 

189 

190 

DECLARE  l AT  AS<  S 

STATIC,  /* 

191 

2 RATING 

CHAR  (7),  /* 

192 

2 JOB  TASK 

CHAR  (61. 

193 

2 TASKTTL 

CHAR  (50), 

194 

2 FILL 

CHAR  (6), 

195 

2 BILCOST 

PICTURE  • ( 6 ) 9V99 ' 

196 

2 CC80 

CHAR  ( 1 ) ; 

197 

198 

DECLARE  1 TASK3IR  (1200)  STATIC.  /♦ 

199 

2 CHTASK 

CHAR  ( 13) , /* 

200 

2 TASKPTR 

FIXEO  BIN, 

201 

202 

COVT  AS<  (12) 

CHAR  ( 1500)  BASED 

203 

LOADTASK 

CHAR  ( 1500)  BASED 

204 

205 

/I************************************/ 

206 

CRS  CIN  DIRECTORY  */ 
CKF.CRS.DIRCIN  */ 


VEH  FILE  */ 
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237 
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PAGE  NUMBER  : 4 

SOURCE  CARD  LISTING  FOR  , 

Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/24/MAR/77  */ 

START:  NTYPfc,  NC,  NJ,  NV,  NR,  NN.  NDF, 

NPAGE,  OPAGE,  LT , NFtRST, 

J,  K = 0 ; 

KTYPE  * l i 

MAXLTB  = 60  *,  /*  MAX  NUMBER  LINES  PER  TERMINAL  PAGE  */ 

LT  = 100  ; /♦  TERMINAL  LINE  COUNTER  ♦/ 

DISP  = l ; /*  START  OFF  WITH  DISPLAY  ACTIVE  ♦/ 

PTR  = 2 ; /*  START  WITH  PRINTER  INACTIVE  */ 

FLCIN,  FLCDP,  FLVEH,  FLTASK  = 'O'B  J 

PCOV  * ADDR  (DINDEX)  ; 

PR  = ADDR  (S16)  ; 

PTC  I N = AODR  (CINDER)  ; 

PTCDP  = ADDR  ICOPDIR)  ; 

PV80  = ADDR  (AVEHICLES)  ; 

PTVEH  = ADDR  ( VEHDIR)  ; 

PTTASK  = ADDR  (TASKDIR)  ; 

COMMENCE: 

OPEN  FILE  ( MREF ) RECORD  INPUT, 

FILE  (ID)  RECORD  INPUT, 

FILE  (COURSE)  INPUT, 

FILE  (DCIN)  RECORD  INPUT, 

FILE  ( DCDP ) RECORD  INPUT, 

FILE  (VEHS)  INPUT, 

FILE  (DVEH)  RECORD  INPUT, 

FILE  (TASKS)  INPUT, 

FILE  (DTASK)  RECORD  INPUT, 

FILE  (REE)  RECORO  INPUT  ; 

ON  ENDFILE  (REE)  GO  TO  EOJ  ; 

READ  FILE  (MREF)  INTO  (MAST)  ; 

READ  FILE  (ID)  INTO  (CARD)  5 

T2NAME  * C110  ; 

DISPLAY  ( • ' ) J 

DISPLAY  ( 'GENERAL-PURPOSE  PROJECT  FILE  PRINT*  ) ; 

DISPLAY  ( 'PROGRAM  IS  NOW  STARTING...'  ) ; 

DISPLAY  ( • ' ) i 

/*************************************/ 

/*  THIS  IS  THE  CENTRAL  PROMPTING  AND  DECODE  SECTION  */ 


prompta:  card  * • • ; 

PROMB:  OLINE  = •**  ENTER  FILETYPE  FOR  OUTPUT, 

DISPLAY  ( DLINE)  REPLY  ( CARD  ) ; 

J = INDEX  ( CARD,  • • ) ; 

IF  ( J * 0 ) THEN  GO  TO  BUMKEY  ; 

NAME4  * SUBSTR  ( CARD,  1,  J ) i 

KDEV  = 0 ; 

REROUTE  * PROMPTA  ; 

LPF : DO  J = 1 TO  21  J 

KTYPE  * J J 
IF  ( NAME4  * OTYPE(J) 

END  LPF  J 


MENU,  OR  QUIT 


) THEN  GO  TO  FINDF 


/*  DISPLY  MENU  OUTPUT  HERE  - TO  TERMINAL  ONLY  */ 

IF  ( NAME4  -.=  'MENU'  ) THEN  GO  TO  TRYQUIT  ; 
DLINE  * 'PROJECT  FILETYPES  FOR  OUTPUT  ARE  : • 


D.6-6 


TAE6  REPORT  NO.  40 


276 

277 

278 

279 

280 
281 
282 
283 
28*. 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 
32  3 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 


PAGE  NUMBER  : 5 

SOURCE  CARD  LISTING  FOR 

Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/24/MAR/77  */ 

DISPLAY  ( • ' ) ; 01  SPLAY  ( OLINE  ) i 

0 1 SPLAY  ( • • ) ; 

MOUT:  DO  J = 1 TO  21  ; 

01  SPLAY  ( (5)*  * ||  TTLSI J)  ) I 

END  MOUT  ; 

DISPLAY  ( • • ) ; 

GO  TO  PROMPTA  ; 

TRYQUIT:  IF  ( NAME4  = ’QUIT’  ) THEN  GO  TO  FENO  *, 

IF  ( NAME4  = ’ALL*  ) THEN  GO  TO  FINOALL  ; 

BUMKEY:  OLINE  = ’ **  LAST  ENTRY  UNRECOGNIZEO  - TRY  AGAIN  **’  ; 

DISPLAY  ( • • > ; DISPLAY  I OLINE  ) * 

GO  TO  PROMPTA  ; 

/*  HERE  WHEN  FOUND  A VALID  FILE  TYPE;  START  PROCESSING  */ 

FINDF:  IF  I KTYPE  > 15  ) THEN 

BUMFILE:  DO  ; 

DUNE  * • **  FILETYPE  • It  NAME4  II  • IS  NOT  YET  • 

II  ’ SERVICABLEt  TRY  AGAIN  **’  ; 

IF  ( PTR  * 1 ) THEN 

PUT  LIST  ( OLINE  I SKIP  12)  ; 

DISPLAY  ( • • ) ; DISPLAY  ( OLINE  ) ; 

DISPLAY  ( ’ • ) J 

GO  TO  REROJTE  ; 

END  BUMFILE  5 

/*  NOW,  DETERMINE  THE  VALID  OUTPUT  OEVICE(S)  •/ 

IF  ( KDEV  > l ) THEN  GO  TO  PROCESS  ; 

KDEV  * KOEV  ♦ 1 ; 

NPAGE  * 0 J 
DISP,  PTR  = 1 ; 

DISPLAY  ( • ' ) ; 

0 1 SPLAY  ( 'OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,  • 

I I ’BOTH,  OR  QUIT*  ) ; 

TP2:  0 1 SPLAY  I ’ENTER  TERM,  PRTR , BOTH,  OR  QUIT'  ) REPLY  I OLINE) 

DISPLAY  ( ’ • ) ; 

IF  4 OL 4 * ’TERM’  ) THEN  GO  TO  STERM  ; 

IF  ( OL 4 * ’PRTR*  ) THEN  GO  TO  OPRTR  ; 

IF  < 0L4  * ’BOTH’  ) THEN  GO  TO  SPRTR  ; 

IF  ( DL4  * ’QUIT'  ) THEN  GO  TO  FENO  ; 

DISPLAY  ( • ' ) ; 

0 1 SPLAY  ( ’UNABLE  TO  DETERMINE  ENTRY  TYPE  - TRY  AGAIN’  ) ; 

0 1 SPLAY  ( ’ ' ) ; 

GD  TO  TP2  ; 

OPRTR:  DISP  * 2 J 

SPRTR:  OPEN  FILE  (SYSPRINT)  LINESI2E  (120)  PAGESIZE  (60)  ; 

ON  ENOPAGE  (SYSPRINT) 

BEGIN  ; 

NPAGE  * NPAGE  ♦ l ; 

PJT  EOIT  ( ’PAGE  NUMBER  : ',  NPAGE  ) 

( PAGE,  L I VE ( 2 ) , X ( 9 ) , A,  F(4>  ) ; 
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SOURCE  CARO  LISTING  FOR 
Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT 


THU/2*/ MAR/77  */ 


IF  ( KTYPE  > 15  1 THEN  GO  TO  SKP  i 

PUT  EDIT  ( 'LISTING  OF  PROJECT  FILE  CONTENTS', 

T2.  • ' ) 

( SKIP (2) * X C 9 ) , A,  SKIP(l),  A,  SKIP(l),  A ) 

IF  ( KTYPE  <*  10  ) THEN  GO  TO  SKP  J 

IF  ( KTYPE  > 10  1 C ( KTYPE  < l*  ) THEN  GO  TO  SKP  ; 

PJ T SK  IP  ( 1 ) 

IF  ( NTYPE  = 3 ) THEN  GO  TO  TASKTTL  ; 

IF  { NTYPE  = 2 ) THEN  GO  TO  VEHTTL  ; 

CRSTTL:  PJT  EDIT  ( 

•***  THE  FOLLOWING  IS  EXTRACT  DATA  FOR  COURSES  ***', 

•RECORD', 

• NUM  ORIGIN  CIN  COP  COURSE  TITLE', 

' ' ) 

( X ( 9 ) , A, 

SKIPI2),  X(A),  A,  3 ( SKlP(l),  All; 

GO  TO  SKP  J 

VEHTTL:  PJT  EDIT  ( 

•***  THE  FOLLOWING  IS  EXTRACT  DATA  FOR  VEHICLES  ***•  , 

•RECORD', 

• NUM  ORIGIN  STOCK  NUMBER  DESIGNATOR', 

t • , 

• ' ) 

( X I 9 ) , A, 

SKIPI2I,  X(*I,  A,  COL ( 35 1 , A,  3 ( SKIP(l),  A ) ) 
GO  TO  SKP  ; 

TASKTTL:  PJT  EDIT  ( 

•***  THE  FOLLOWING  IS  EXTRACT  DATA  FOR  TASKS  ***• , 

•RECORD' , 

• NUM  ORIGIN  RATING  RANK  JOBTASK* , 

, _______ , ( , , 

( X ( 9 ) , A, 

SKIPI2),  X(*I,  A,  3 ( SKIP!  1 ) , A ) ) J 

SKP:  PUT  SKIP  (1)  ; 

END  ; 

GO  TO  S T ART  P : 

STERM:  PTR  = 2 ; 

STARTP:  IF  I DISP  * 2 ) THEN  GO  TO  PROCESS  J 

ON  CONDITION  (NEWOP) 

BEGIN  *. 

IF  ( LT  >=  66  ) THEN  GO  TO  LPB  ; 


IF  < LT 

< 61 

» 

THEN  LT 

LPA : 

DO 

L * 

LT 

TO  66  ; 

DISPLAY 

( 

' » ) 

END 

LPA 

t 

LPB: 

DI SPLAY 

( 1 

• ) ; 

DP  AGE  = DP AGE  ♦ 1 ; 
DOPGE  = DPAGE  ; 
DISPLAY  ( DTTL  ) ; 
DISPLAY  ( • • ) ; 

LT  = 3 » 
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SOURCE  CARD  LISTING  FOR 

Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/24/MAR/77  ♦/ 

IF  ( KTYPE  > 15  ) THEN  GO  TO  NEWEND  ; 

DISPLAY  ( 'LISTING  OF  PROJECT  FILE  CONTENTS'  ) J 
DISPLAY  ( T2  ) ; DISPLAY  ( • ' ) ; 

LT  = LT  ♦ 3 ; 

IF  ( KTYPE  <=  10  1 THEN  GO  TO  NEWEND  5 

IF  ( KTYPE  > 10  ) & ( KTYPE  < 14  ) THEN  GO  TO  NEWEND  ; 

IF  ( NTYPE  = 3 ) THEN  DO  : 

DISPLAY  ( 'THE  FOLLOWING  IS  ROE  RESULT  DATA  FOR  TASKS'  ) ; 
DISPLAY  < • NUM  ORIGIN  RATING  RANK  JOBTASK'  ) *. 

DISPLAY  ( • • ) ; 

GO  TO  DSKIP  ; 

END  ; 

IF  ( NTYPE  = 2 » THEN  DO  J 

DISPLAY  ( 'THE  FOLLOWING  IS  ROE  RESULT  DATA  FOR  VEHICLES'  1 J 
DISPLAY  ( • NUM  ORIGIN  STOCK  NUMBER  DESIGNATOR'  ) ; 

DISPLAY  ( • ' ) J 

GO  TO  DSKIP  ; 

END  ; 

DISPLAY  ( 'THE  FOLLOWING  IS  ROE  RESULT  DATA  FOR  COURSES'  ) ; 
DISPLAY  ( • NUM  ORIGIN  CIN  CDP  COURSE  TITLE'  )*. 

DISPLAY  ( • •) 

DSKIP:  DISPLAY  ( • • ) J 

LT  = LT  ♦ 4 ; 

NEWEND:  END  ; 

/ft************************************/ 

/*  NOW,  NEW  FILE  IS  SETUP  */ 

PROCESS: 

NFIRST  = 0 J 
NR  = 0 ; 

FLAGS  (KTYPE)  = 'I'B  5 
T2TTL  = TTLS  (KTYPE)  J 

OPEN  FILE  ( PRO J ) RECORD  INPUT  TITLE  < DTYPE (KTYPE ) ) J 
ON  ENDFILE  (PROJ)  GO  TO  TALLY  ; 

IF  ( PTR  = 1 ) THEN  SIGNAL  ENDPAGE  (SYSPRINT)  ; 

IF  ( DISP  = 2 ) THEN  GO  TO  DOIT  ; 

SIGNAL  CONDITION  ( NEWDP ) ; 

DOIT:  IF  ( KTYPE  > 10  ) 

THEN  GO  TO  WAY  ( KTYPE  ) ; 

/*************•***********************/ 


/*  IF  CARD-IMAGE  PRINTING  ALONE  REQUIRED,  IT  IS  DONE  HERE 

RRR 1 : READ  FILE  (PROJ)  INTO  (CARD)  ; 

NR  = NR  ♦ l 5 

IF  ( PTR  * 1 ) THEN  PUT  LIST  (CARD)  SKIP  (1)  ; 

IF  ( DISP  = 2 I THEN  GO  TO  RRR1  ; 

LT  = LT  ♦ 1 ; 

IF  ( LT  > MAXLTB  ) THEN  SIGNAL  CONDITION  (NEWDP)  ; 
DISPLAY  ( CARD  ) J 

GO  TO  RRR 1 ; 

/************** ********** ** *******+*««/ 
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PAGE  NUMBER  : 8 

SOURCE  CARO  LISTING  FOR  ,,  , 

Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/24/MAR/77  */ 


/*  IN  THIS  SECTION,  FILETYPES  REC,  REV,  REJ  ARE  PROCESSED  ; 
FIRST,  FILETYPE  REC  IS  SETUP  */ 

WAY (11):  00  J = 1 TO  4 ; 

READ  FILE  (OIND)  INTO  (CARO)  KEY  (J)  5 
COVER  (J)  « CARO  J 
END  ; 

GO  TO  RECVJ  ; 

/*  NOW,  SETUP  FILE  (REV)  PROCESSING  */ 

WAY (12):  DO  J = 5 TO  8 ; 

READ  FILE  (DINO)  INTO  (CARD)  KEY  (J)  ; 

COVER  ( J-4 ) = CARO  *, 

ENO  ; 

GO  TO  RECVJ  ; 

/*  FINALLY,  SETUP  OF  FILE  (REJ)  ENSUETH  */ 

WAY (13):  00  J = 9 TO  12  : 

READ  FILE  (OIND)  INTO  (CARO)  KEY  (J)  ; 

COVER  ( J - 8 ) « CARO  ; 

ENO  ; 

/*  HERE,  ONE  OF  THE  FILES  (REC),  (REV),  (REJ)  IS  PRINTED  */ 

RECVJ:  READ  FILE  (PROJ)  INTO  (CARD)  J 

NR  « NR  ♦ l ; 

IF  ( CllO  = • • ) THEN  GO  TO  RECVJ  ; 

GET  STRING  (CllO)  EDIT  (N)  ( F(10)  ) ; 

J * ABS  (N)  J 

IF  ( PDESC(J)  * 0 ) THEN  GO  TO  FIXSR  ; 

READ  FILE  (OIND)  INTO  (CARO)  KEY  ( PDESC(J)  ) i 

PUT  STRING  (OLINE)  EDIT  ( N.  SUBSTR ( CARO,  3,  70)  ) 

( X ( 5 ) , F ( 4 ) , X(l),  A ) ; 

IF  ( PTR  * 1 ) THEN  PUT  LIST  (OLINE)  SKIP  (2)  ; 

IF  ( DISP  = 2 ) THEN  GO  TO  RECVJ  J 

IF  ( LT  > MAXLTB  ) THEN  SIGNAL  CONDITION  (NEWDP)  ; 
DISPLAY  ( • ' ) ; 0 1 SPLAY  ( DLINE  ) 5 

LT  « LT  ♦ 2 5 

GO  TO  RECVJ  ; 

FIXSR:  OLINE  * • **  ILLEGAL  DESCRIPTOR  -•  l|  CllO  II 

DETECTED  IN  • II  NAME4  ||  * FILE  ; 

DISPLAY  ( • • ) : 

0 1 SPLAY  ( (10)*  • ||  OLINE  ) J 

DISPLAY  ( • • ) J 

LT  * LT  ♦ 3 J 

PUT  LIST  ( OLINE  ) SKIP  (2)  ; 

GO  TO  RECVJ  ; 

/**M*«MM**»*M**M*MM***MMM***/ 

/*  HERE,  EOF  SENSED  WHILE  PROCESSING  INPUT  FILE  */ 
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SOURCE  CARD  LISTING  FOR 

Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - 

TALLY:  CLOSE  FILE  IPROJ)  *. 

PUT  STRING  (DLINE)  EOIT  ( *A  TOTAL  OF  *, 

• RECORDS  ARE  PRESENT*  ) ( X(10).  A, 
CARD  * HOI*  * II  'WITHIN  THIS  FILE*  J 

IF  ( PTR  * 1 ) THEN  PUT  EDIT 

( DLINE,  CARD  ) < SKIPI3),  A,  SKIP! 

IF  I DISP  = 2 ) THEN 
DD  ; 

DISPLAY  I * * ) I 

DISPLAY  I 'NOW  LISTING  FILETYPE  « * 
GO  TO  T ALLY 2 *, 


TALL Y2 : 


END  ; 

DISPLAY  I ' * ) ; 

DISPLAY  < DLINE  ) ; 

DISPLAY  I CARD  > ; DISPLAY  I * 

GO  TO  REROUTE  ; 


• ) ; 


THU/24/HAR/77  •/ 
NR, 

fU),  a ) : 
l),  a ) : 

II  DTYPE  (KTYPE)  ) 


/ +*+*******++ ************ *************/ 

/*  HERE,  WHEN  PR0CECESSIN3  ALL  PROJECT  FILES  l THE  ORDER  OF 
PROCESSING  WILL  BE  THAT  OF  VECTOR  COTYPE  12113  *t 

FINDALL:  REROUTE  * TALLYALL  *, 

KALL,  KTYPE,  KDEV  » 1 : 

NEXALL:  NAME*  = DTYPE  (KTYPE)  ; 

GD  TO  FINDF  ; 

TALLYALL:  IF  ( KTYPE  >»  21  ) THEN  GO  TO  PROMPTA  J 

KTYPE  = KTYPE  ♦ l ; 

KALL  * KALL  ♦ 1 J 

GO  TO  NEXALL  ; 

/*************************************/ 

/*  HEREIN,  IS  THE  PROCESSING  OF  FILETYPE  * REE  / RESU  */ 

WAY ( l*  ) : WAYI15): 

RD1 : READ  FILE  (PROJ)  INTO  (S16)  5 

NR  = NR  «•  1 5 

IF  ( RTYP  = NTYPE  ) THEN  GO  TO  STEP1  ; 

NTYPfc  » RTYP  J 

IF  ( PTR  * 1 ) C ( NFIRST  > 0 ) 

THEN  SIGNAL  ENDPAGE  (SYSPRINT)  ; 

IF  ( DISP  * 1 ) L ( NFIRST  > 0 ) 

THEN  SIGNAL  CONDITION  (NEWDP ) ; 

NFIRST  * NFIRST  ♦ 1 ; 

STEP1 : GO  TO  VI  (NTYPE)  I 

/*  HERE,  A COURSE  RECORD  IS  PROCESSED  ♦/ 

VI ( 1 ) : NC  = NC  ♦ 1 { 

NLINE  = 1 ; 

DLINE  = * * i 

PUT  STRING  (DUNE)  EDIT  ( NR,  RESCIN,  RESCDP  ) 

( P*  Z,  ZZ9* , X ( 12  ) , A,  X i 2 ) , A ) *, 
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639 

640 
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Pi: 
STP1 : 


NOCOATA: 


IF 

IF 

IF 


/*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/24/HAR/77  */ 

( RSTAT  * 1 ) THEN  DLINE8  * 'ORIGINAL*  J 

ELSE  IF  ( RSTAT  * 2 ) THEN  0LINE8  » • ADDED'  ; 

ELSE  DLINE8  « • DELETED'  ; 


( RESCDP 


( ROSTAT 

do  ; 

NN  = NN  ♦ 

DLINECST  * NOAB  ; 

GO  TO  OUTLOOP 
END  NOCOATA  ; 


2 ) 
1 


) THEN  DLINE28 
I ( RESCDP  = • 


'NONE* 
) THEN 


YECDP  « RESCDP  ; 

LOOKU  « STEP2  ; 

GO  TO  FI  NOCOP  ; 

STEP2:  IF  ( COPREC  * 0 ) THEN 

LPl:  DO  ; 

NOF  * NOF  ♦ l ; 

DLINECST  * NODIR  ; 

GO  TO  OUTLOOP  J 

END  LPl  ; 

READ  FILE  (COURSE)  INTO  (ACRS)  KEY  (CDPREC) 
OLINECST  « CST  ; 

GO  TO  OUTLOOP  ; 

/*  HERE,  VEHICLE  TYPE  RECORDS  ARE  PROCESSED  ♦/ 


Vl(  2) 


NV  = NV 
NLINE  * 


♦ 1 

l : 


STP2 : 


DUNE  ; 

PUT  STRING  (DUNE)  EDIT  ( NR,  RESIO  ) 

( P'2,ZZ9'f  X ( 12 ) , A( 13)  ) : 

IF  ( RSTAT  * 1 ) THEN  0LINE8  « 'ORIGINAL'  ; 

ELSE  IF  ( RSTAT  * 2 ) THEN  DLINE8  » • ADDED* 

ELSE  DLINE8  • 'DELETED' 


NOVDATA: 


IF  ( 


ROSTAT 
DO  ; 

NN  * NN 
DL1NE33 


« 2 ) THEN 


♦ 1 ; 

» NOAB  ; 

GO  TO  OUTLOOP 
END  NOVDATA  J 


YEVEH  * RES1D  ; 
LOOKU  * STEP3  ; 

GO  TO  FINDVEH 


STEP3: 
LP2 : 


IF  ( VEHREC  « 0 ) THEN 
DO  ; 

NDF  * NDF 
DLINE36  * 


♦ l ; 

NODIR  : 

GO  TO  OUTLOOP  J 


END  LP2  ; 

READ  FILE  (VEHS)  INTO  (AVEHICLES)  KEY  (VEHREC)  ; 

0UNE33  =*  DEVDESIG  ; 

CARD  » • • ; 

CARD7  * DEVNAME  ; 

NLINE  * 2 J 

GO  TO  OUTLOOP  ; 
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PAGE  NUMBER  : 11 

SOURCE  CARO  LISTING  FOR 
Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT 


THU/2 4/ MAR/77  */ 


/*  NOW,  PROCESS  A TASK  RECORD  HERE  */ 

VI  (3):  NJ  = NJ  ♦ 1 ; 

NLINE  * 1 ; 

DUNE  3 • • ; 

PUT  STRING  (DLINE)  EDIT  ( NR.  RATE,  RANK, 
( P'Z.ZZ 9*,  X ( 12  > , A,  X ( 4 ) » A,  X ( 3 > , 

IF  ( RS TAT  * 1 ) THEN  DLINE8  « 'ORIGINAL' 
ELSE  IF  ( RSTAT  = 2 ) THEN  DLINE8  » 

ELSE  DLINE8  * 


REST • JOBTASK  ) 
A ) ; 

•*ADDEO'  ; 
•DELETED'  ; 


STP5:  IF  ( RDSTAT  = 2 ) THEN 

NOTDAT  A:  D3  ; 

NN  = NN  ♦ l ; 

DLINE40  - NOAB  ; 

GO  TO  OUTLOOP  J 
END  NOTDAT  A ; 

YETASK  = RESID  ; 

LOOKU  3 STEP4  ; 

GO  TO  FINOTASK  { 

STEP4:  IF  ( TASKREC  * 0 ) THEN 

LP3 : DO  ; 

NDF  = NDF  ♦ 1 : 

DLINE40  = NOOIR  ; 

GO  TO  OUTLOOP  I 

END  LP3  J 

READ  FILE  (TASKS)  INTO  (ATASKS)  KEY  (TASKREC)  { 

CARD  » ' ' 5 
CARD7  = TASKTTL  *, 

NLINE  3 2 ; 

GO  TO  OUTLOOP  ; 

/*  HERE  IS  THE  PRINTEO  LINE  OUTPUT  SEQUENCE  */ 

OUTLOOP:  IF  ( PTR  3 l ) 

THEN  PUT  LIST  (DLINE)  SKIP  (2)  *, 

IF  ( PTR  * 1 ) G ( NLINE  3 2 ) 

THEN  PUT  LIST  ( CARD  ) SKIP  (1)  ; 

IF  ( OISP  3 2 ) THEN  GO  TO  RD1  ; 

IF  ( LT  > MAXLTB  ) THEN  SIGNAL  CONDITION  ( NEWDP ) ; 

DISPLAY  ( » ' ) J DISPLAY  ( DLINE  ) i 

LT  3 LT  ♦ 2 ; 

IF  ( NLINE  2 ) THEN  GO  TO  RD1  5 
DISPLAY  < CARD  ) J 
LT  = LT  ♦ 1 ; 

GO  TO  ROl  5 


/************************•***********•/ 

DECLARE 


( FLCIN, 
YECIN 
YECOP 


FLCDP , FLVEH.  FLTASK  ) 
CHAR  (8)  STATIC, 
CHAR  (4)  STATIC, 


BIT  (1)  STATIC, 


YECOP  CHAR  (4)  STATIC. 

( YETASK,  YEVEH  ) CHAR  (13)  STATIC, 

( CINREC,  CDPREC,  VEHREC,  TASKREC,  VEHMAX,  TASKMAX, 
CINMAX,  CDPMAX  ) etvcn  dim  CT.r.r 


FIXED  BIN  STATIC, 





. 
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SOURCE  CARO  LISTING  FOR  , _ , 

Pi:  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/24/MAR/77  •/ 

LOOKU  LABEL  J 

/*  CIN  DIRECTORY  LOOKUP  SUBROUTINE 


ENTRY 

EXIT  : CINREC 
RETURN  VECTOR  IS 


OESIRED  CIN  IN  YECIN 

0 (NO  FIND)  OR  REG  NUMBER 
LOOKU 


*/ 


FINDCIN:  IF  ( FLCIN  ) THEN  GO  TO  CIN2  ; 


CINMAX 
FLCIN  » 


REFS  (2) 
' l ' B ; 


772 

CINLOAD: 

DO  J * 1 TO  4 ; 

773 

PLCIN  * ADDR  l COVCIN 

774 

READ  FILE  (DCIN)  INTO 

775 

END  CINLOAD  ; 

776 

777 

CIN2: 

DO  I 3 1 TO  CINMAX  J 
IF  ( YECIN  CHCINU 

778 

779 

CINREC  3 CINPTR 

780 

GO  TO  LOOKU 

781 

EC  I N2 : 

END  CIN2  J 

782 

783 

NFC  IN: 

CINREC  3 0 ; 

784 

GO  TO  LOOKU  ; 

/*  COP  OIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  COP  IN  YECOP 
EXIT  : CDPREC  * 0 (NO  FINO),  OR  REC  NUMBER 
RETURN  VECTOR  IS  LOOKU 


*/ 


FINDCDP:  IF  ( FLCDP  ) 


CDPMAX 
FLCDP  = 


< REFS 
' l ' B 


THEN  GO  TO  CDP2 
(3)  ; 


COPLOAD: 

CDP2 : 

ECDP2 : 
NFCDP: 


DO  J * 1 TO  A ; 

PLCOP  = ADDR  ( COVCDP  (J)  ) ; 
READ  FILE  IDCDP)  INTO  (LOADCDP) 
END  CDPLOAD  ; 


OO  I 3 1 TO  CDPMAX  J 
IF  ( YECDP  -=  CHCDP(I)  ) 
CDPREC  * COPPTR I I ) 
GO  TO  LOOKU  J 

END  CDP2  J 

CDPREC  3 0 ; 

GO  TO  LOOKU  *, 


THEN  GO  TO  ECDP2 


/*  VEHICLE  10  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  VEH  ID  IN  YEVEH 
EXIT  : VEHREC  * 0 (NO  FIND),  OR  REC  NUMBER 


RETURN  VECTOR  IS  LOOKU 
FINDVEH:  IF  ( FLVEH  ) THEN  GO  TO  VEH2  J 

(8)  ; 


VEHMAX 
FLVEH  , 


« REFS 
• 1*  B ; 


VEHLOAD: 


VEH2 : 


DO  J * 1 TO  4 ; 

PL VEH  » ADDR  ( COVVEH  (J)  ) : 

RE AO  FILE  ( DVEH)  INTO  (LOADVEH) 
END  VEHLOAD  ; 


00  I 3 1 TO  VEHMAX  ; 

IF  ( YEVEH  CHVEH( I ) ) 
VEHREC  * VEHPTR  (I) 


THEN  GO  TO  EVEH2 

t 
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SOURCE  CARO  LISTING  FOR 

Pis  /*  GENERAL-PURPOSE  PROJECT  FILE  PRINT  - THU/24/MAR/77  */ 

GO  TO  LOOKU  ; 

EVEH2:  END  VEH2  J 

NFVEH:  VEHRtC  = 0 ; 

GO  TO  LOOKU  ; 

/*  TASK  10  DIRECTORY  LOOKJP  SUBROUTINE 

ENTRY  : DESIRED  TASK  ID  (13-CHAR)  IN  YETASK 
EXIT  : TASKREC  * 0 (NO  FIND)  OR  REC  NUMBER 
RETURN  VECTOR  IS  LOOKU  */ 

FINDTASK:  IF  ( FLTASK  ) THEN  GO  TO  TASK2  ; 

TASKMAX  = REFS  (12)  5 
FLTASK  = • 1 • B ; 

TASKLOAD:  UO  J = 1 TO  12  5 

PL T ASK  = ADDR  ( COVTASK  (J)  ) S 
READ  FILE  ( DTASK ) INTO  (LOADTASK)  { 

END  TASKLOAD  ; 

TASK2:  03  I = 1 TO  TASKMAX  ; 

IF  ( YETASK  CHTASK(I)  ) THEN  GO  TO  ETASK2  • 

TASKREC  * TASKPTR  ( I ) J 
GO  TO  LOOKU  ; 

ETASK2 : ENO  TASK2  • 

NFTASK:  TASKREC  = 0 ; 

GO  TO  LOOKU  5 

/ft***********************************/ 

/*  IF  GET  HERE,  PROGRAM  IS  TERRIBLE  BROKE  */ 

BUSTED:  PUT  STRING  (CARD)  EDIT 

( • »*  ERROR  NUMBER  *,  NER , • HAS  OCCURED  ) 

( A,  F ( 2 ) , A ) : 

PUT  LIST  (CARD)  SKIP  (3)  • 

PUT  LIST  (DLINE)  SKIP  (2)  ; 

DISPLAY  ( • • ) J DISPLAY  ( DLINE  ) J 

DISPLAY  ( • • ) J 

/ft************************************/ 

/*  HERE  IS  EOF  WINDUP  PROCESSING  ♦/ 

EOJ : EOF: 

FEND:  CLOSE  FILE  (MREF),  FILE  (ID).  FILE  (REE), 

FILE  (COURSE),  FILE  (DCDP), 

FILE  (VEHS).  FILE  ( DVEH ) , 

FILE  (TASKS),  FILE  (DTASK)  ; 

IF  ( PTR  * 1 ) THEN  CLOSE  FILE  (SYSPRINT)  ; 

DISPLAY  ( • ' ) i DISPLAY  < • ' ) 5 

0 1 SPLAY  ( 'PROJECT-FILE  PRINT  PROGRAM  IS  NOW  TERMINATING*  ) 
DISPLAY  ( • • ) ; 

END  PI  ; 


i 
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SOURCE  CARO  LISTING  FOR 

P2 : /*  SEARCH  DESIGNATORS  IA  EDITOR  - TUE/08/FEB/77  */ 


P2:  /*  SEARCH  DESIGNATORS  IA  EDITOR  - TUE/08/FEB/77  */ 

PROC  (INPARM)  OPTIONS  (MAIN)  ; 

/*  REVISIONS  : 

TUE/08/FEB/77  - FIRST  DEBUG  VERSION  AT  CKF. 

WED/23/FEB/77  - INTRODUCED  REC,  REV,  REJ  PROJECT  FILES. 

WED/02/ MAR/77  - ENTERED  CHECKS  TO  VALIDATE  THE  INCOMING 
DESCRIPTORS  FROM  PROJECT  FILES  REC, 

REV,  AND  REJ;  EDIT  PROJECT  FILES  IF  INVALID. 

MON/21/ MAR/ 77  - MODS  PRIOR  TO  TRANSMIT  TO  NCSS. 

*/ 


DECLARE  D1ND 


KEYED  ENV 


FILE  RECORD  DIRECT 
( REGIONAL!!)  ) ; 


DECLARE  ( NC,  NEOF , KEOF.  NRD,  J,  K.  L,  FCON,  CFLAG,  ND, 
JE,  KMAX,  NER,  <D,  NTYPE , NUM,  LI,  LIA,  N, 
JD  ) FIXED  BIN  STATIC, 


FNME 

ROUTE 

I RD ( 3) , SRET 


CHAR  ( 3) 
LABEL, 

) LABEL  S 


STATIC, 


CHAR  180)  STATIC, 

CHAR  (4)  DEF  CARD  POS  (1), 
CHAR  (6)  DEF  CARD  POS  ( 1 ) , 
CHAR  ( 10)  DEF  CARD, 

CHAR  (75)  DEF  CARD  POS  (5), 
CHAR  ( 74)  DEF  CARD  POS  (7) . 
CHAR  (70)  DEF  CARD  POS  (11), 

CHAR  ( 100)  VARYING, 

BASED  (PP), 

CHAR  ( 1 ) , 

CHAR  (4), 


DECLARE  ( CARD,  DLINE  ) 

C 14 
C 16 
CllO 
C580 
C 780 
C 1080 

INPARM 
1 POVER 
2 PARM 
2 PARM2 

RNUMS  (3,3)  FIXED  BIN  /*  MASTER  INDEX  REC  NOS  */ 

STATIC  INIT  < 1,  4,  0,  /*  COURSES  */ 

5,  8.  4.  /♦  VEHICLES  */ 

9,  12,  8 ),  /♦  TASKS  */ 

TYPE3  (3)  CHAR  (8)  STATIC  INIT 

( 'COURSES',  'VEHICLES',  'TASKS'  ), 


FNAMES 

( 


(3) 

•REC' 


CHAR  (8)  STATIC 
•REV',  'REJ'  ), 


INIT 


A80  (80) 

( CARG,  VARG, 
PARGS  (3) 
WFLAGS  (3) 
TTL4 


BASED  (PASO). 

R (240)  STATIC, 


CHAR  ( l ) 

TARG  ) CHAR 
POINTER. 

FIXED  BIN  STATIC, 
CHAR  1 10)  STATIC 


DECLARE  1 


D INDEX 
2 DST ART 
2 DEND 
2 NCAT 
2 NDESC 
2 CATEGORIES 
3 PC  AT 
3 SCAT 
3 6CAT 

2 PDESC  (111) 


STATIC. 
FIXED  8 IN, 
FIXED  ' 
FIXED 
FIXED 
(15), 

FIXED 
FIXED 
FIXEO 
FIXED 


BIN, 

BIN, 

BIN, 


BIN, 

BIN, 

BIN, 

BIN, 


♦/ 

/*  OVERALL  DESCRIPTOR  INDEX  */ 
/*  CKF. DESC. INDEX  */ 
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114 
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116 
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PAGE  NUMBER 


SOURCE 

P2: 


DECLARE 

DECLARE 


CARD  LISTING  FOR 

/*  SEARCH  DESIGNATORS 


COVER 
1 


(4) 


IA  EDITOR  - TUE/08/FEB/77  */ 
CHAR  (80)  BASED  (PCOV)  J 


1 


1 


MAST 
2 REFS 

TTLCARD 
2 PNAME 
2 PTTL 

SARGS 
2 SID 
2 SSTAT 
2 STAB 


(40) 


STATIC. 

FIXED  BIN  ; 

STATIC, 

CHAR  (8), 

CHAR  (72), 

BASED  (PSARG), 
CHAR  (8), 

FIXED  BIN, 
FIXED  BIN  ; 


/+  PROJECT  TITLE  DATA  BASE  */ 
/♦  CKF, TITLE  */ 


/*  ROE  SEARCH  ARGUMENTS  */ 
/*  CKF. SEARCH. ARGS  */ 


(115) 

/************** ********** *************/ 


START : NC,  ME3F,  KEOF, 

J,  K * 0 ; 
WFLAGS  = 0 ; 


SRET  = STEPl 


PARGSU  ) = 
PARGS ( 2 ) = 

P ARGS ( 3 ) = 
PP  * 

PCOV 
PA80  = ADDR 


ADDR 

ADDR 

ADDR 


AO DR  (INPARM)  . 
ADDR  (DINDEX) 
(CARD)  ; 


NRD,  NTYPE , 


/*  SET  FOR  INITIAL  SELECT  LOOP  */ 

(CARG)  i 
(VARS)  ; 

(TARG)  ; 


COMMENCE:  OPEN  FILE  (DIND)  INPUT, 

FILE  ( MREF ) RECORD  INPUT, 
FILE  (ID)  RECORD  INPUT, 
FILE  (SARG)  RECORD  OUTPUT 


READ  FILE  (MREF)  INTO  (MAST)  { 
KMAX  « REFS  (4)  ; /*  MAX 


SS  USEO  IN  MASTER  INOEX  •/ 


F INOT! 


READ  FILE  ( ID) 
TTL4  * C110  ; 


DISPLAY 

DISPLAY 

II 

DISPLAY 

DISPLAY 


( ' 

( ( 10  ) 

• FOR  PRO JE 


INTO  (CARD)  J 

• ) 


• • II  'SEARCH  DESCRIPTOR  EDITOR 
ROJECT  : • ||  TTL4  ) ; 


RUN' 


C 1080  ) 

• ' ) 


/**«***********************•«*********/ 

/*  PROJECT  FILES  REC,  REV.  REJ  TRANSFERRED  TO  THE  SEARCH 
ARGUMENT  FILE  IN  THIS  SECTION  */ 

OPEN  FILE  (REC)  RECORD  UPDATE, 

FILE  (REV)  RECORD  UPDATE, 

FILE  (REJ)  RECORD  UPDATE  J 


ON 

ON 

ON 


ENDF ILE 
ENDF ILE 
ENDF ILE 


(REC) 

(REV) 

(REJ) 


GO  TO  L2  5 
GO  TO  L 3 : 
GO  TO  L4  ; 


/♦ 


ON  CONVERSION  GO  TO  FIXSR  ; 

HERE,  COURSES  PROCESSED  FROM  FILE  * REC  */ 

PSARG  = ADDR  (CARG)  ; 

SID  « 'COURSES'  ; 

SSTAT  = 0 ; STAB  « 0 ; 

ROUTE  = RW1  ; 

FNME  * 'REC*  ; 
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SOURCE  CARD  LISTING  FOR  _ ,,  ^ 

P2:  /*  SEARCH  DESIGNATORS  IA  EDITOR  - TUE/08/FEB/77  */ 


LOOPl : DO  J = 1 TO  * : 

READ  FILE  (DIND)  INTO  (CARD)  KEY  1 J ) J 
COVER  (J)  = CARD  ; 

END  LOOPl  i 

Rl:  READ  FILE  ( REC ) INTO  (CARD)  ; 

IF  ( C110  = • • ) THEN  GO  TO  Rl  *, 

GET  STRING  (CUO)  EDIT  (N)  ( F(10)  ) ; 

J = ABS  (N)  ; 

IF  ( PDESC(J)  * 0 ) THEN  GO  TO  FIXSR  *, 

SSTAT  = SSTAT  ♦ 1 ; 

STAB  ( ABS(N)  ) = N ; 

GO  TO  Rl  ; 

RWl : RtWRITE  FILE  (REC)  FROM  (CARD)  J 

GD  TO  Rl  ; 

/*  HERE,  VEHICLES  PROCESSED  FROM  REV  FILE  */ 

L2 : PSARG  = ADDR  (VARG)  ; 

SID  * 'VEHICLES'  ; 

SSTAT  * 0 ; STAB  = 0 * 

ROUTE  * RW2  ; 

FNME  = 'REV*  ; 

LOOP2:  DO  J = 5 TO  8 ; 

READ  FILE  (DIND)  INTO  (CARD)  KEY  < J ) ; 
COVER  ( J - * ) * CARD  ; 

END  L00P2  *. 

R2 : READ  FILE  (REV)  INTO  (CARD)  ; 

IF  ( CUO  = • • ) THEN  GO  TO  R2  5 

GET  STRING  ( C 1 10  > EDIT  (N)  ( F ( 10)  ) ; 

J * ABS  (N)  ; 

IF  ( POESC(J)  = 0 » THEN  GO  TO  FIXSR  ; 

SSTAT  * SSTAT  ♦ 1 ; 

STAB  ( ABS(N)  ) * N ; 

GO  TO  R2  ; 

RW2 : REWRITE  FILE  (REV)  FROM  (CARD)  ; 

GO  TO  R2  5 

/*  FINALLY,  TASKS  ARE  PROCESSED  FROM  FILE  « REJ  */ 

L3 : PSARG  = ADDR  (TARG)  ; 

SID  = • TASKS'  ; 

SSTAT  = 0 ; STAB  = 0 ; 

ROUTE  = RW3  ; 

FNME  = 'REJ'  ; 

L00P3 : 00  J = 9 TO  12  ; 

READ  FILE  (DIND)  INTO  (CARD)  KEY  ( J ) , 
COVER  ( J - 8 ) - CARD  ; 

END  L00P3  5 

R3:  READ  FILE  (REJ)  INTO  (CARD)  ; 

IF  ( CUO  = • • ) THEN  GO  TO  R3  ; 

GET  STRING  (C110)  EOI T (N)  ( F(10)  ) ; 

J = ABS  (N)  ; 

IF  ( PDESC(J)  * 0 ) THEN  GO  TO  FIXSR  ; 

SSTAT  * SSTAT  ♦ l ; 

STAB  ( ABS(N)  ) = N ; 

GO  TO  R3  ; 

RW3:  REWRITE  FILE  (REJ)  FROM  (CARD)  ; 
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SOURCE  CARO  LISTING  FOR 

• 

P 2: 

/*  SEARCH  DESIGNATORS  IA  EDITOR  - TUE/08/FE8/77  */ 

207 

208 
209 

GO  TO  R3  ; 

/* 

WITHIN  THIS  SUBROUTINE.  AN  INVALID  DESIGNATOR  (CONVERSION 
OR  RANGE)  IS  ELIMINATED  FROM  REC,  REJ,  REV  */ 

210 

211 

OLINE  * •**  ILLEGAL  DESCRIPTOR  -*  II  CllO  l| 
•-  DETECTED  IN  • I]  FNME  II  • FILE  ***  : 

212 

FIXSR 

21  3 

214 

display  ( • • ) ; Display  ( dline  ) ; 

215 

DUNE  * • DESCRIPTOR  WILL  BE  IGNORED  ANO  REMOVEO  FROM  THE  * 

216 

217 

II  FNME  T[  * FILE*  ; 

218 

DISPLAY  ( DLINE  ) *. 

219 

DISPLAY  < • * ) ; 

220 

221 

222 

CARD  * • • ; 

GO  TO  ROUTE  i 

223 

224 

/* 

HERE,  FINAL  SETUP,  PRIOR  TO  ENTERING  MAINLINE  */ 

225 

? ? 6 

L4 : 

CLOSE  FILE  (REC),  FILE  (REV),  FILE  (REJ)  J 

22  7 

228 

ON  CONVERSION 

?29 

BEGIN  ; 

230 

231 

DISPLAY  ( • * ) J 

232 

DISPLAY  ( 

233 

• 

**  KEYBOARD  ENTRY  -•  1 SUBSTR  ( CARD,  K,  3 ) 

2 H 

•-  CONTAINEO  ILLEGAL  NUMERIC  CHARACTER*  ) J 

236 

GO  TO  PROMPTA  ; 

2 3 7 

END 

238 

219 

/*************************************/ 

240 

HERE,  INITIAL  LOOP,  AWAITING  TYPE  DESIGNATOR  SELECT  *7 

241 

/* 

• 

242 

243 

STEPl 

: 01  SPLAY  ( • • ) ; 

244 

DISPLAY  ( MAKE  INITIAL  ENTRY  SELECT*  ) REPLY  (CARD)  ; 

245 

246 

NRD  * l ; 

247 

IF  ( Cl 6 -=  * SELECT*  ) THEN  GO  TO  STEPl  • 

248 

249 

LPl : 

DO  J * l TO  3 ; 

250 

NTYPE  = J J 

251 

IF  ( INDEX  ( C780,  TYPE31J)  ) > 0 1 THEN  GO  TO  ST6P2  S 

252 

END  LPl  S 

253 

254 

DISPLAY  ( • • ) : 

DISPLAY  ( •**  SELECTION  ERROR  - TRY  AGAIN*  ) J 

255 

256 

GO  TO  SRET  *. 

257 

258 

/♦ 

HERE,  A SELECTION  HAS  BEEN  MADE ; INDEX  IS  IN  NTYPE  */ 

259 

260 

STEP2 

: PSARG  = PARGS  ( NTYPE  ) ? 

261 

262 

LP2 : 

DO  J = RNUMS  ( NTYPE,  1 ) TO  RNUMS  ( NTYPE,  2 ) J 
READ  FILE  (DIND)  INTO  (CARD)  KEY  ( J ) T 

263 

264 

COVER  ( J - RNUMS( NTYPE, 3)  ) - CARD  i 

265 

END  LP2  I 

266 

267 

DISPLAY  < • • ) ; 

268 

DISPLAY  ( •**  • h SID  l| 

269 

270 

271 

• SEARCH  DESCRIPTORS  SELECTED*  ) ; 

IF  ( SS  TAT  « 0 ) THEN 

272 

NONEMSG:  00  ; 

273 

DISPLAY  ( • • ) J 

274 

DISPLAY  ( NO  DESCRIPTORS  NOW  ACTIVE*  ) : 

275 

GO  TO  PROMPTA  ; ! 

• 
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344 


PAGE  NUMBER  : 5 

SOURCE  CARO  LISTING  FOR  „ 

P2 : /*  SEARCH  DESIGNATORS  IA  EOITOR  - TUE/08/F6B/7T  •/ 


END  NONEMSG 


DISPLAY  ( • 
DISPLAY  ( •** 


U'n  i 


• DESCRIPTORS  N^SElAAtED* 


I 


,**+***********************  ***********/ 

/*  CENTRAL  ACTION  PROMT  AND  REPLY  DECODE  FOLLOWS  */ 

PROMPT  A:  DISPLAY  I • • ) i 

DISPLAY  ( •**  MAKE  NEXT  ACTION  REQUEST*  ) REPLY  C CARO  ) 


NRD  = 2 i 
IF  ( Cl  4 
IF  l Cl  6 
IF  I Cl  6 
IF  ( Cl  6 
IF  ( Cl  4 
IF  I Cl  4 


•ADD  • ) THEN  GO  TO  ADD  J 
•PRINT  • ) THEN  GO  TO  PRINT  J 
•DELETE*  ) THEN  GO  TO  DELETE  ; 
•SELECT*  ) THEN  GO  TO  SELECT  J 
•FILE*  ) THEN  GO  TO  FILE  J 
•QUIT'  ) THEN  GO  TO  QUIT  J 


DISPLAY  ( • • ) ; 

DISPLAY  I •**  UNIDENTIFIED  ACTION  REQUEST  - TRY  AGAIN*  ) l 
GO  TO  PROMPTA  ; 

/*************************************/ 

/*  HERE  IS  PROCESSING  FOR  DELETE  OPTION 

ENTRIES  ARE  - DELETE  (BLANK)  - MEANS  GET  RID  OF  ALL 

DESIGNATORS  OF  SELECTED  TYPE. 
- DELETE  N - MEANS  DELETE  ONLY  DESIGNATOR 
NUMBERED  (N). 


*/ 

DELETE: 

DELALL: 


IF  ( C780  « • • ) THEN 
03  * 

WFLAGS (NTYPE ) « I 
SSTAT  * 0 ; STAB 


/*  BLANK  DELETE  SERVICED  HERE  •/ 


DISPLAY  ( • 

01  SPLAY 


) 


•**  ALL  • II  SID  I! 

• SEARCH  DESIGNATORS  OELETED*  ) { 

GO  TO  PROMPTA  ; 


I P 3 : 


5TEP3: 


BUMD: 


END  DELALL 

D3  J * 8 TO  77  J 
K » j ; 

IF  ( A80 ( J ) • 

END  LP3  ; 


/*  LOOK  FOR  WHERE  NUMBER  STARTS  ♦ / 
) THEN  GO  TO  STEP3  ; 


FCON  = 1 ; 

GET  STRING  ( SUBS TR (C ARD. K , 4 ) 


) EDIT  ( NUM  ) I F ( 4)  I 


N = ABS  (NUM)  J 

IF  ( N > 100  ) I ( N 
DO  ; 

DISPLAY  ( • • ) 

DISPLAY  ( 


>0)1  (PDESC(N)  « 0 ) THEN 


•*♦  • II  NUM  II 

* IS  NOT  A LEGAL  DESCRIPTOR  FOR  • 
TYPE'  ) ; 


Ao 


II 


TO  PROMPTA  ; 


SID 
END  BUMD 

IF  ( STAB(N)  ->  0 ) THEN  GO  TO  STEP12  ; 

PUT  STRING  (DUNE)  EDIT  ( • **  DESIGNATOR  NUMBER 
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367 
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369 
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371 
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373 
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376 

377 
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380 

381 
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383 
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386 

387 
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389 

390 

391 

392 

393 

394 
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396 
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P2: 


STEP12 ; 


/*  SEARCH  DESIGNATORS  IA  EDITOR  - TUE/08/FEB/77  */ 

N,  • HAS  NOT  BEEN  SELECTED;  IT  CANNOT  BE  DELETED*  ) 
( A,  F(3),  A ) ; 

DISPLAY  ( DLINE  I ; 

GO  TO  PROMPTA  ; 

SSTAT  = SSTAT  - 1 ; 

STAB  m * 0 ; 

WFLAGS1 NTYPE)  » 1 ; 


DISPLAY  ( •**  • |l  SID  l| 

NUM  I | * HAS  &EEN  DELETED* 


DESIGNATOR  NUMBER*  I I 

) ; 


GO  TO  PROMPTA  S 

/************** ************** *********/ 

/*  PRINT  OPTION  SERVICED  IN  THIS  SECTION  ♦/ 


PRINT: 


NO  « 0 
CFLAG  « 
NC  « 1 


/*  STAB  SS  */ 

/♦  CATEGORY  PRINT  FLAG; 
/*  CATEGORIES  SS  */ 


0 MEANS  DO  I 


ST6P4 : IF  1 ND  >*  100  ) THEN  GO  TO  PROMPTA 


ND  * NO  ♦ l ; 
IF  ( STAB(ND) 


= 0 » THEN  GO  TO  STEP4 


ER1 : 
ER1A: 


STEP5 : 
STEP6 : 

ER2: 

STEP7: 
STEPS : 


JD  ■ 
KD  * 

IF  ( 


STAB  (ND)  ; 
PD ESC  (ND)  ; 


/*  FOUND  A NON-O  DESIGNATOR  */ 
/*  PTR  TO  DESCRIPTOR  CARD  */ 


KD  <-  KMAX  ) THEN  GO  TO  STEP5  ; 
NER  « 1 ; 

PJT  STRING  (DLINE)  DATA  ( ND*  JD* 
GO  TO  BUSTED  ; 

IF  ( ND  >*  SCAT (NC ) ) THEN  GO  TO  STEP7 

NC  » NC  ♦ 1 ; 

CFLAG  » 0 ; 

IF  ( NC  <*  15  ) THEN  GO  TO  STEP5  \ 
NER  - 2 ; 

GO  TO  ER1A  ; 


KD*  KMAX  ) 


IF  ( 
IF  ( 


ND 

ND 


SCAT ( NC ) 
> EC AT ( NC ) 


) THEN  GO  TO  STEP8  ; 
) THEN  GO  TO  STEP6  ; 


IF  ( CFLAG  • l ) THEN  GO  TO  DETOUT  , 

/*  MERE,  CATEGORY  LINE  IS  OUTPUT  */ 

INTO  (DLINE)  KEY  ( PCAT(NC)  ) 
) ; OISPLAY  ( DLINE  ) ; 

/*  NOW,  DETAIL  LINE  IS  OUTPUT  */ 


CATOUT:  READ  FILE  (DIND) 
CFLAG  * 1 ; 
DISPLAY  ( • • 


DETOUT:  READ  FILE  (DIND)  INTO  (DLINE)  KEY  C KD  ) ; 

IF  ( JD  < 0 ) THEN  OLINE  » *-'  T1  DLINE  ; 
OISPLAY  ( DLINE  ) ; 

GD  TO  STEP4  ; 

/*************************************/ 

/*  ADD  OPTION  SETUP  HERE  */ 

ADD:  DO  J ■ 5 TO  77  ; 

K * J ; 

IF  ( A80  ( J ) ■**  » • I THEN  GO  TO  STEP9  ; 


T */ 


D- 6-21 


41  4 

415 

416 
4)7 
416 

419 

420 

421 

422 

423 

424 

425 

426 

427 
4?8 
429 
4 30 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 
4 57 
*•6  8 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 


TAEG  REPORT  NO.  40 


PAGE  NUMBER 

SOURCE  CARD  LISTING  FOR 
P2 : 


STEP9: 


/*  SEARCH  DESIGNATORS  IA  EOITOR  - TUE/08/FEB/77  ♦/ 
END  ADD  ; 

FCON  * 2 ; 

GET  STRING  ( SUBSTR (C ARDf K ,4 ) I EDIT  INUM)  ( F(4)  I 
N = ABS  INUM)  ; 

J = PDESC  IN)  ; 

( J * 0 ) 


tfR3 : 


IF  ( 
IF  ( 


N * 0 ) 
THEN  GO 


I N > 100  ) 
TO  BUMD  ; 


STEP10:  IF  ( 


J <*  KMAX  ) THEN  GO  TO  STEP10  ; 
NER  « 3 ; 

JE  * SSTAT  : 

PUT  STRING  (DUNE)  DATA  ( NUM,  J, 
GO  TO  BUSTED  ; 

STABIN)  * 0 ) THEN  GO  TO  STEP13  ; 
STAB  IN)  * NUM  ; 

GO  TO  STEPIA  ; 


Jt*  N ) 


STEPl 3 ! STAB  IN)  * NUM  ; 

SSTAT  = SSTAT  ♦ 1 ; 

SfEPlA:  WFLAGSI NTYPE)  * l ; 

REAO  FILE  (OINO)  1NT3  tOLINE)  KEY  (J)  ; 

IF  1 NUM  < 0 ) THEN  DLINE  * »-•  I I OLINE 


0 1 SPLAY  I • 


) 


0 1 SPLAY  < •**  AD0e6  DESIGNATOR  - • II  OLINE  ) 
DISPLAY  I •♦*  TOTAL  DESIGNATORS  SELECTED  ARE 
II  SSTAT  ) ; 

GO  TO  PROMPTA  ; 

/I************************************/ 

/*  SELECT  OPTION  IMPLEMENTED  IN  THIS  SECTION  */ 
SELECT:  GO  TO  LPI  ; 

/ ***** ********* ********** *************/ 

/*  FILE  OPTION  IMPLEMENTED  HERE  */ 


/*  UPDATED  ARRAYS  WRITTEN  BACK  OUT  TO  REC,  REV*  REJ  PLUS 
SEARCH  ARGUMENT  FILE  */ 


FILE: 


LP5 : 


L P6 : 


DO  J « 1 TO  3 S 
PSARG  * PARGS  I J ) J 

K « J - l ; 

WRITE  FILE  (SARG)  FROM  ( SARGS ) ; 

IF  ( WFLAGS(J)  > 0 ) THEN  DO  ; 

01  SPLAY  ( • • ) J 

DISPLAY  I •**  MODIFIED  • II  SID  II 

' DESIGNATORS  HAVE  BEEN  SAVED*  ) ; END 

IF  ( WFLAGSI J ) > 0 ) THEN 

DO  ; 

OPEN  FILE  IPROJ)  RECORD  OUTPUT 
TITLE  I FNAMESIJ)  ) J 

LI  > SSTAT  ; 

DO  L » l TO  100  ; 
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P2:  /*  SEARCH  DESIGNATORS  IA  EDITOR  - TUE/08/FEB/ 77  */ 


483 

IF  ( STABIL)  * 0 ) THEN 

GO  TO  LP6END  ; 

484 

*85 

CARD  » • • ; 

86 

PUT  STRING  (CARD)  EDIT 

4H7 

480 

489 

( STAB(L)  ) ( F ( A ) 

) ; 

WRITE  FILE  (PROJ)  FROM 

(CARO)  ; 

<•90 

<•91 

SSTAT  = SSTAT  - 1 ; 

<•92 

LP6END: 

END  LP6  ; 

<•93 

494 

LIA  * SSTAT  { 

<•95 

IF  ( SSTAT  ■ 0 ) THEN  GO  TO 

STEPli  ; 

<•96 

ERA : 

NER  » A J 

<•97 

PUT  STRING  (DLINE)  DATA 

( J,  LI,  LIA  ) ; 

498 

GO  TO  BUSTED  ; 

<•99 

500 

STEPll: 

CLOSE  FILE  (PROJ)  5 

501 

502 

END  LP5  ; 

503 

E'i  D 

FILE  ; 

504 

505 

GO  TO  EOJ  ; 

506 

507 

/ ************************************* / 

508 

509 

/*  THIS  IS  THE 

ERROR  PROCESSOR  */ 

510 

511 

BUSTED:  PUT  STRING  IDL1NE)  EDIT 

512 

( 

•**  ERROR  NUMBER  •»  NER,  • HAS 

OCCURED  *♦'  ) 

513 

( 

A* 

F ( 2 ) » A ) ; 

514 

DISPLAY 

< 

• • ) 5 DISPLAY  ( DLINE 

) ; 

515 

516 

GD 

TO  PROMPT  A ; 

517 

• 

518 

/********* ******************* *********/ 

519 

520 

/*  THIS  IS  THE 

BITTER  ENDE  */ 

521 

522 

R D t 1 1 : RD(2): 

RD<  3 ) : 

523 

QUIT:  DISPLAY 

( 

• • ) ; 

524 

DISPLAY 

( 

•SEARCH  DESIGNATOR  EDITOR  IS 

NOW  TERMINATING' 

525 

5?6 

LPA:  DO 

J 

* 1 TO  3 ; 

527 

IF 

< 

WFLAGS(J)  * 0 ) THEN  GO  TO  LPAEND  { 

528 

529 

DI 

SPLAY  ( • • I ; 

530 

PI 

SPLAY  ( 

531 

•**  TYPE  = ' TI 

TYPE3IJ)  ' WAS  MODIFIED,  BUT  NOT  SAVED'  ) J 

532 

533 

LPAEND:  END 

LPA  ; 

534 

535 

EOJ:  CLOSE  FILE  (DIND),  FILE  (MREF),  FILE  ( TTL ) • 

536 

FILE 

(SARG)  ; 

537 

538 

END  P2 

• 
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SOURCE  CARO  LISTING  FOR 

P3:  /*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE 


P3 : 


/*  RANGE-OF-EFFECTS  (ROE) 
PROC  OPTIONS  (MAIN)  J 


HED/02/MAR/77  */ 
SEARCH  MOOULE  - WED/02/MAR/77  */ 


/* 


REVISIONS  : 
WED/02/MAR/77  - 

SAT/05/MAR/77  - 

SUN 720/ MAR/77  - 


10 

*/ 

11 

12 

DECLARE 

( DIND,  COURSE, 

13 

TASKS  ) 

1A 

15 

T 1 

16 

* RANGE-OF-EFFECTS  SEARC 

17 

18 

MAXCSS  (3) 

19 

INIT  ( 2, 

20 

21 

MAXRSS  (3) 

22 

INIT  ( 1, 

23 

2A 

( AFIRST,  NR,  S 

25 

J,  Jl,  J2 , 

26 

NER,  NNR , 

27 

NC , NF  ) 

28 

29 

( CARD,  DLINE  ) 

30 

CUO 

31 

C 1 1 80 

32 

CRSCIN 

33 

CRSCDP 

3A 

35 

ID8 

36 

Vi  (3) 

37 

38 

DECLARE 

1 RESULT 

39 

2 RTYP 

*,0 

2 R ST  AT 

Al 

A2 

2 RDSTAT 

A3 

AA 

2 RESID 

A5 

A6 

1 RESID2 

A7 

2 RESCIN 

A8 

2 RESCDP 

A9 

50 

DNAMES  (31 

51 

( ' DESC ' , 

52 

53 

CHAR  1 3 

5A 

V Jl  3 

55 

56 

DECLARE 

1 AND 

57 

2 NAND 

58 

2 TAND  (100) 

59 

2 CAT  (100) 

60 

61 

1 OR  (15) 

62 

2 NO* 

63 

2 NCAT 

6A 

2 TOR  (15) 

65 

66 

DECLARE 

1 TTLCARD 

67 

2 PNAME 

68 

2 PTTL 

VERYFIRST  EDITION. 

FINAL  (HOPEFULLY)  DEBUG  EFFORTS. 

MODS  PRIOR  TO  TRANSMIT  TO  NCSS. 

VEHS, 

FILE  RECORD  DIRECT  KEYED  ENV  ( REGIONAL  (I)  ), 

( 


CHAR 


(38)  STATIC  INI T 
PROJECT  : » ), 


FIXED  BIN  STATIC 
8,  12  ), 


FIXED 
7,  II 


BIN 

), 


STATIC 


AVEK,  HIT,  NOUT,  BOT , TOP, 
K,  KI,  K2  * L,  MAXD , MAXR, 
NTYPE,  NNF,  MAXD2,  KSAVE , 
FIXED  BIN  STATIC, 


N, 


CHAR  (80)  STATIC, 

CHAR  ( 10)  DEF  CARD, 

CHAR  (70)  DEF  CARD  POS  (11), 
CHAR  (8)  DEF  CARD  POS  (5), 
CHAR  (A)  OEF  CARD, 


CHAR  (8) 
LABEL  ; 

STATIC, 

PICTURE 

PICTURE 


STATIC, 


•9', 
»9»  , 


PICTURE  ' 9 * , 

CHAR  ( 13) , 

BASED  (PRID), 
CHAR  (8), 

CHAR  (A), 


/* 

/* 

/* 

/* 


*/ 

*/ 


ROE  SEARCH  RESULTS  RECORD 
l « CRS,  2 = VEH,  3 = JOB 

1 = ORIGINAL  SEARCH, 

2 * ADDED,  3 * DELETED  */ 

1 * ABBR  DATA  FOUND, 

2 * NO  DATA  AVAIL  */ 

/*  ENTITY  IDENTIFIER  */ 


/*  OVERLAY  FOR  COURSE  CIN/CDP  */ 


CHAR  (8) 

' VDESC  * , 

CHAR  ( 13) 
CHAR  (13) 


STATIC  INIT 
’ TDESC ’ ), 


STATIC, 
BASED  ( PI 3 ) 


STATIC, 
FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN, 

STATIC, 
FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN 

STATIC, 
CHAR  ( 10), 
CHAR  (70), 


/*  SEARCH  ARRAY  FOR  ANDED- 
/*  DESCRIPTORS  BETWEEN  CATS 


/*  SEARCH  ARRAY  FOR  ORED- 
/*  DESCRIPTORS  WITHIN  CATS 


*/ 

*/ 


*/ 

*/ 


/*  PROJECT  TITLE 
/*  CKF.ID  */ 


DATA  BASE  */ 
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69 


79 


130 

131 

132 

133 

134 

135 

136 

137 
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P3 : /*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE  - WED/02/MAR/77  */ 


/*  ROE  SEARCH  ARGUMENTS  */ 
/♦  CKF. SEARCH. ARGS  */ 


70 

1 SARGS 

STATIC  , 

71 

2 SID 

CHAR  (8), 

72 

2 SSTAT 

FIXED  BIN, 

73 

2 STAB 

(115)  FIXED  BIN, 

74 

75 

RNUMS  (3, 

3)  FIXED  BIN 

76 

STAT 

IC  INIT  ( 1,  4,  0, 

77 

5,  8,  4, 

70 

9,  12,  8 

/*  MASTER  INDEX  REC  NOS  */ 
/*  COURSES  */ 

/*  VEHICLES  */ 

/*  TASKS  */ 


80 

81 

82 

/*******♦*****************************/ 

DECLARE 

1 CINDESC 

STATIC, 

/*  COURSE  DESCRIPTORS  */ 

83 

2 CINDS 

CHAR  ( 8) , 

/*  CKF.CRS.DESC  */ 

84 

2 FILL 

CHAR  (5), 

85 

86 
87 

2 DTAB  (100) 

FIXED  BIN  *. 

DECLARE 

1 CINDER  (304) 

STATIC, 

/*  CRS  CIN  DIRECTORY  «■/ 

88 

2 CHCIN 

CHAR  (8), 

/*  CKF.CRS.DIRCIN  ♦/ 

89 

90 

91 

2 CINPTR 

FIXED  BIN, 

LOAOCIN 

CHAR  (760) 

BASED  (PLCIN), 

92 

93 

94 

COVCIN  (4) 

CHAR  (760) 

BASED  « PTC  I N ) ; 

DECLARE 

1 DINDEX 

STATIC , 

/*  OVERALL  DESCRIPTOR  INDEX 

95 

2 DST ART 

FIXEO  BIN, 

/♦  CKF. DESC. INDEX  */ 

96 

2 DENU 

FIXED  BIN, 

97 

2 NCAT 

FIXED  BIN, 

98 

2 NDESC 

FIXED  BIN, 

99 

2 CATEGORIES 

( 15) , 

100 

3 PC  AT 

FIXED  BIN, 

101 

3 SCAT 

FIXED  BIN, 

102 

3 ECAT 

FIXEO  BIN, 

103 

104 

105 

2 PDESC  (111 

) FIXED  BIN, 

COVER  (4) 

CHAR  (80)  BASED  (PCOV)  i 

106 

107 

DECLARE 

1 MAST 

STATIC, 

108 

109 

no 

2 REFS  (40) 

FIXED  BIN  ; 

DECLARE 

1 VEHDESC 

STATIC, 

/♦  VEH  DESCRIPTOR  FILE  */ 

in 

2 VEHDS 

CHAR  ( 13) , 

/*  CKF. VEH. DESC  */ 

112 

113 

114 

2 VTAB  (100) 

FIXED  BIN  ; 

DECLARE 

1 VEHDIR  (200) 

STATIC. 

/*  VEHICLE  DIRECTORY  */ 

115 

2 CHVEH 

CHAR  ( 13), 

/*  CKF. VEH. DIR  */ 

116 

117 

118 

2 VEHPTR 

FIXEO  BIN, 

COVVEH  (4) 

CHAR  ( 750) 

BASED  (PTVEH), 

119 

LOADVEN 

CHAR  (750) 

BASED  ( PLVEH ) ; 

120 

UECL ARE 

1 TASKDESC 

STATIC, 

/*  TASK  DESCRIPTOR  FILE  */ 

121 

2 TASKDS 

CHAR  (13). 

/*  CKF. TASK. DESC  ♦/ 

122 

2 TTAB  (100) 

FIXED  BIN  ; 

123 

/*  J08TASK  FILE  DIRECTORY  * 

124 

DECLARE 

1 TASKDIR  (1200)  STATIC, 

125 

2 CHTASK 

CHAR  ( 13) , 

/*  CKF. TASKS. DIR  */ 

126 

2 TASKPTR 

FIXED  BIN, 

127 

128 

COVTASK  (12) 

CHAR  ( 1500) 

BASED  ( PTTASK ) , 

129 

LOADTASK 

CHAR  ( 1500) 

BASED  (PLTASK)  ; 

/************** ************** *********/ 

COMMENCE: 

PRID  = ADDR  (RESID)  ; 

P 13  = ADDR  (CINDS)  ; 

PTC  I N * ADDR  (CINDER)  ; 

PCOV  * ADDR  (DINDEX)  J 
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138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 


P3 : 


/*  RANG6-0F-EFFECTS  (ROE)  SEARCH  MODULE  - WED/02/MAR/77  */ 


PTVEH  = 
PTTASK  i 


AOOR  (VEHDIR)  ; 
AOOR  (TASKDIR) 


OPEN  FILE  ( 0 l NO ) INPUT, 

FILE  (HREF)  RECORD  INPUT, 

FILE  (ID)  RECORD  INPUT, 

FILE  (SARG)  RECORD  INPUT, 

FILE  ( RESU ) RECORD  OUTPUT, 

FILE  (COURSE)  INPUT, 

FILE  ( DC  IN  ) RECORD  INPUT, 

FILE  (VEHS)  INPUT, 

FILE  ( DVEH ) RECORD  INPUT, 

FILE  (TASKS)  INPUT, 

FILE  ( DTASK ) RECORD  INPUT  5 

/*  FILE  DIRECTORIES  LOADED  IN  THIS  SECTION  */ 

CINLOAD:  DO  J = 1 TO  4 ; 

PLCIN  * ADDR  ( COVCIN  (J)  ) ; 

READ  FILE  (DCIN)  INTO  (LOADCIN)  ; 
END  CINLOAD  ; 

VEHLOAD:  DO  J = 1 TO  4 ; 

PLVEH  = ADDR  ( COVVEH  (J)  ) ; 

READ  FILE  (DVEH)  INTO  (LOADVEH)  5 
END  VEHLOAD  ; 

DO  J * l TO  12  J 
PL T ASK  * ADDR  ( COVTASK  (J)  ) ; 

READ  FILE  (DTASK)  INTO  (LOADTASK)  ; 
END  TASKLOAD  ; 

/*  NOW,  OUTPUT  THE  PROJECT  TITLE  */ 

READ  FILE  (ID)  INTO  (CARD)  ; 


TASKLOAD: 


DISPLAY 

DISPLAj 

DLINE  * 
DISPLAY 


( • • ) ; 

( 'RANGE-OF-EFFECTS  (ROE) 
•PROGRAM  IS  STARTING'  ) ; 


SEARCH 


Ti  II 
( • 


C110 
’ ) 


DISPLAY  ( DLINE  ) 


DLINE  = C 1180  ; 
DISPLAY  ( DLINE  ) 


/*  FINAL  SETUP  BEFORE  PROGRAM  MAINLINE  */ 

l ; 


NTYPE 
NOUT  * 
RSTAT 


/*  START  WITH  COURSES  */ 
t*  TOTAL  * OUPUT  (HIT)  RECORDS  */ 
/«■  RESULT  RECORD  * ALL  ORIGINAL  */ 


READ  FILE  ( MREF ) INTO  (MAST)  ; 

/ ************ **************** *********/ 

/*  THIS  IS  START  OF  MAINLINE  LOOP  */ 


START:  RTYP  = NTYPE  ; 

NC,  NF,  NNF  * 0 ; 

READ  FILE  (SARG)  INTO  (SARGS) 


/*  RESULT  RECORD  TYPE  */ 

/*  DESCRIPTOR  RECORD  COUNTS  */ 


PUT  STRING  (DLINE)  EDIT  ( • **  NOW  PROCESSING  ',  SID, 

• SEARCH  - • , ' 

( A.  A ( 8 ) , A, 

DISPLAY  ( • • ) 


SSTAT,  • DESCRIPTORS  SELECTED* 
F(  3 ) , A ) ; 

DISPLAY  ( DLINE  ) 5 
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207 

208 

209 

210 
211 
212 
213 
219 

215 

216 

217 

218 

219 

220 
221 
222 
223 
229 

225 

226 

227 

228 

229 

230 

231 

232 

233 
239 

235 

236 

237 

238 

239 

290 

291 

292 

293 
299 

295 

296 

297 

298 

299 

250 

251 

252 

253 
259 

255 

256 

257 

258 

259 

260 
261 
262 
263 
269 

265 

266 

267 

268 

269 

270 

271 

272 

273 
2 79 
275 
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SOURCE  CARD  LISTING  FOR 

P3:  /*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE  - WED/02/MAR/77  */ 


LP1 


IF  ( SSTAT  <*  0 ) THEN 
DD  ; 

DLINE  = •**  NO  SEARCH  DESCRIPTORS  SPECIFIED  FOR  • 
J|  SID  J|  • TYPE  DATA  - SEARCH  IS  BYPASSED' 


DISPLAY  l 


DISPLAY  ( DLINE  ) 


GO  TO  TALLY 
END  LP1  ; 


/*  HERE,  MASTER  DESCRIPTOR  INDEX  IS  LOADED  FOR  APPROPRIATE  NTYPE  */ 

LOADDIND*.  DO  J * RNUMS  (NTYPE,  1 ) TO  RNUMS  ( NTYPE  , 2 ) ; 

READ  FILE  (DIND)  INTO  (CARD)  KEY  (J)  ; 

COVER  ( J - RNUMS ( NTYPE, 3 ) ) = CARD  ; 

END  LOADDIND  ; 

NAND  = 0 ; 

NOR  * 0 ; 

MAXD  * REFS  ( MAXCSSJ NTYPE)  ) ; /*  MAX  DIRECTORY  SS  */ 

MAXD2  = MAXD  / 2 ; /*  HALFWAY  POINT  FOR  TASKS  TYPE  ONLY  */ 

MAXR  = REFS  ( MAXRSS ( NTYPE ) ) « /*  TOTAL  <*  DATA  RECS  */ 

/*************************************/ 

/*  NOW.  LOAD  UP  ARRAYS  PRIOR  TO  SEARCH  OF  DESIGNATOR  DATASET. 

FIRST,  SETUP  THE  -OR-  ARRAY  FOR  HANDLING  DESIGNATORS 
WITHIN  A SINGLE  CATEGORY  */ 


L P2 : 


LP3 : 


NOR  * 0 ; 

L * 0 ; 

DD  J * l TO  15 
AFIRST  * 0 ; 

K1  * SCAT  (J)  ; 
K2  * ECAT  (J)  ! 


/*  ALL  COUNT  FIELDS  * 0 */ 

/*  OR  STRUCTURE  SS  */ 

/*  CATEGORY  SS  */ 

/*  HAVE  NOT  STARTED  A CAT  YET  */ 


STEP! 


STEP2 : 


LP3END: 


DO  K = K1  TO  K2  ; /*  INDIVIDUAL  CAT  BOUNDS  */ 

IF  ( ST AB ( < ) * 0 ) THEN  GO  TO  LP3END  ; 

IF  ( AFIRST  0 ) THEN  GO  TO  STEP1  ; 

AFIRST  = l ; 

SAVEK  * STAB  (K)  ; 

KSAVE  * K ; 

GO  TO  LP3END  5 

IF  ( AFIRST  < 0 ) THEN  GO  TO  STEP2  i 

L * L ♦ 1 ; 

NOR  (L)  = i ; 

TOR  (L,i)  = SAVEK  ; 

STAB  (KSAVE)  = 0 J 
AFIRST  * -l  J 
OR.NCAT  (L)  * J J 

NOR(L)  * NOR ( L ) * 1 ; 

TOR  ( L.  NOR(L)  ) * STAB  (K)  J 
STAB  (K)  * 0 ; 

END  LP3  ; 


END  LP2 


/*  NOW,  SETUP  THE  -AND-  STRUCTURE  TO  ENCOMPASS  DESIGNATORS 
THAT  ARE  TO  BE  ANDED  BETWEEN  CATEGORIES  */ 


D.6-27 


TAEG  REPORT  NO.  40 


276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 
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299 
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301 
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303 

304 
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306 

307 

308 

309 

310 

311 
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313 
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316 
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319 
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321 
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PAGE  NUMBER 
SOURCE  CARD  LISTING  FOR 


P3: 


LP4 : 


STEP3 


ER1 : 
ERIA: 


STEP4: 

ER2 : 
STEP5: 

STEP6: 
ER3 1 

LP4END: 


/*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE  - WED/02/ MAR/ 77  */ 


/*  AND  STRUCTURE  COUNTER  */ 
/*  CATEGORY  SS,  1 TO  15  */ 


/*  STAB  SS  */ 
) THEN  GO  TO  LP4END  ; 


NAND  = 0 ; 

k = o ; 

DD  J * 1 TO  100 
IF  ( STAB(J)  = 0 

K s K ♦ 1 • 

IF  ( J >=  SCAT ( K ) ) THEN  GO  TO  STEP4  ; 
NER  = 1 ; 

PUT  STRING  (DLINE)  DATA  ( NAND,  J, 
GO  TO  BUSTED  ; 

IF  ( J > ECAT(K)  ) THEN  GO  TO  STEP6  ; 


K,  SCAT ( K ) ) 


NAND  = NAND  ♦ 1 ; 

IF  ( NAND  <=  100  ) THEN  GO  TO  STEP5  ; 

NER  * 2 ; 

GO  TO  ERIA  ; 

TAND  (NANO)  * STAB  (J)  ; 

CAT  (NAND)  = K ; 

GO  TO  LP4END  ; 

IF  I K < 1 5 ) THEN  GO  TO  STEP3  ; 


NER 


GO  TO  ERIA 


END  LP4 


/ft************************************/ 

/*  HERE  WE  ARE  AT  THE  SEARCH  - FIRST.  THE  SINGLE  DESIGNATORS  TO 
BE  ANOED  TOGETHER  BETWEEN  CATEGORIES  ARE  PURSUED  */ 

OPEN  FILE  (DESIGS)  RECORD  INPUT  TITLE  ( DNAMES ( NTYPE ) ) ; 
ON  ENDFILE  (DESIGS)  GO  TO  EOFDESC  ; 

NC,  NF,  nnf  = 0 : 


NOGO: 
RD1 : 


SEARCH: 


READ  FILE  (DESIGS)  INTO  (CINDESC) 
NC  * NC  ♦ l ; 


RDSTAT  = 
HIT  * 0 


/*  ASSUME  ABBR.  DATA  EXISTS  */ 
/*  NOGO,  JUST  STARTING  */ 


IF  ( NANO  * 0 ) THEN  GO  TO  SEARCHOR 


ANDSEARCH: 

TESTPOS: 

TESTNOT: 

ALTANO: 

LP5: 

GOAND: 


DO  J = 1 TO  NANO  5 
N » ABS  ( TANDU  ) ) ; 

IF  ( T AND ( J ) < 0 ) THEN  GO  TO  TESTNOT  ; 

IF  ( OTAB(N)  > 0 ) THEN  GO  TO  GOAND  ; 

GO  TO  ALTAND  ; 

IF  ( DTAB(N)  <=  0 ) THEN  GO  TO  GOAND  ; 

GO  TO  NOGO  ; 

K1  = SCAT  ( CAT ( J ) ) ; 

K2  = ECAT  ( CAT ( J ) ) ; 

00  K » Kl  TO  K2  : 

IF  ( DTAB(K)  -.=  0 ) THEN  GO  TO  NOGO 
END  LP5  ; 

END  ANDSEARCH  ; 
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SOURCE  CARD  LISTING  FOR 

P3 i /*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE  - WED/02/MAR/ 77  */ 


345 

SEARCHOR: 

HIT  * 1 ; /*  HERE,  MADE  IT  ONE 

WAY  OR  TOTHER 

346 

347 

/*  NOW, 

WE  TACKLE  THE  OR  SEARCH  */ 

348 

349 

IF 

( L > 0 ) /*  L IS  COUNT  OF  OR  STRUCTURES  */ 

350 

THEN  GO  TO  ORSEARCH  ; 

351 

352 

IF 

( HIT  * 0 ) THEN  GO  TO  NOGO  ; 

353 

ELSE  GO  TO  GO  ; 

354 

355 

ORSEARCH: 

DO  J « l TO  L ; /*  OR-STRUCTURE 

SS  */ 

356 

357 

Kl  = NOR  (J)  ; /*  TOT  OESCS  WITHIN  CAT 

35B 

LP6 : 

DO  K = l TO  Kl  ; 

359 

N = TOR  ( J, K ) ; 

360 

361 

IF  ( N > 0 ) THEN  GO  TO  POSTEST 

362 

363 

NEGTEST: 

IF  ( DTAB(  ABS(N)  ) <*  0 ) THEN 

GO  TO  ORGO  ; 

364 

GO  TO  LP6END  ; 

365 

366 

POSTEST: 

IF  ( DTAB(N)  > 0 ) THEN  GO  TO  ORGO  J 

367 

368 

LP6END : 

END  LP6  ; 

369 

370 

Kl  = SCAT  ( OR. SCAT ( J ) ) ; 

3 71 

K2  = ECAT  ( OR.NCAT ( J ) ) ; 

372 

373 

LP7 : 

DO  K = Kl  TO  K2  ; 

374 

IF  ( DTAB(K)  0 ) THEN  GO  TO 

NOGO  ; 

375 

END  LP7  ; 

376 

377 

ORGO: 

END  ORSEARCH  *, 

378 

379 

/*  IF  FALL  THRU  FROM  ABOVE,  ALL  IS  GO  */ 

380 

381 

GO: 

GO  TO  VI  ( NTYPE)  ; 

382 

383 

/********#*****  ************** «+*«*****/ 

384 

385 

/*  HERE, 

COJRSE  RESULTS  PROCESSED  */ 

306 

387 

VI  ( 1 ) : J1 

* MAXD  *,  /*  MAX  SS  USED  IN  CRS 

DIRECTORY  */ 

388 

389 

LP8: 

00  J = 1 TO  J1  ; /*  LOOK  UP  FOUND 

CIN  */ 

390 

K = J ; 

391 

IF  ( CINDS  = CHCIN(J)  ) 

392 

THEN  GO  TO  CRSGO  *, 

393 

LP8END : 

END  LP8  ; 

394 

395 

CRSNOGO: 

/*  NO  FINO  IF  FALL  OUTTA  ABOVE  */ 

396 

RESID  » • • ; 

397 

RDSTAT  = 2 ; 

398 

RESCIN  = CINOS  ; 

399 

400 

STEP 7:  WRITE  FILE  (RESU)  FROM  (RESULT)  i 

401 

NOUT  = NOUT  ♦ 1 ; 

402 

NNF  * NNF  ♦ 1 ; 

403 

404 

GO  TO  RD1  ; 

405 

406 

CRSGO: 

/*  HERE,  CRS  DIRECTORY  SEARCH  WAS  GO 

*/ 

407 

RDSTAT  = l *, 

408 

K1 

* K J 

409 

K * 

CINPTR  (K)  ; 

410 

411 

IF 

C K O MAXR  ) THEN  GO  TO  STEPS  ; 

412 

413 

ER4 : 

NER  * 4 J 
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SOURCE  CARD  LISTING  FOR 


*1* 

*16 
*17 
*18 
*19 
*20 
*21 
*22 
*23 
*2* 
*25 
*26 
*27 
*28 
*29 
*30 
*31 
*32 
*33 
*3* 
*35 
*36 
*37 
*38 
*39 
**0 
**1 
**2 
**3 
AAA 
**5 
**6 
**  7 
**8 
**9 
*50 
*51 
*52 
*53 
A 5* 
*55 
*56 
*57 
*58 
*59 
*60 
*61 
*62 
*63 
*6* 
*65 
*66 
*67 
*68 
*69 
*70 
*71 
*72 
*73 
*7* 
*75 
*76 
*77 
*78 
*79 
*80 
*81 
*82 


P3 : 


STEP8 : 


/*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE  - WED/02/MAR/77  */ 

PJT  STRING  (DLINE ) DATA  ( K,  Kl,  REFSU),  CINDS  ) J 
GO  TO  BUSTED  ; 

READ  FILE  (COURSE)  INTO  (CARD)  KEY  ( K ) J 

IF  ( CINDS  -=  CRSCIN  ) THEN  GO  TO  RDl  ; 

RESID  = ' ’ i 
RESCIN  * CRSCIN  ; 

RESCDP  = CRSCDP  J 

WRITE  FILE  ( RESU ) FROM  (RESULT)  ; 

NOUT  * NOUT  ♦ 1 ; 

NF  * NF  l ; 

K = K ♦ 1 ; 

IF  ( K > REFS ( 1 ) ) THEN  GO  TO  RDl  ; 

GO  TO  STEPS  ; 

/*************************************/ 

/*  HERE,  VEHICLE  RESULTS  ARE  OUTPUT  */ 


V 1 ( 2 ) : 
LP9 : 

LP9END : 
VEHNOGO: 

VEHGO: 


J1  = MAXD  ; 
RESID  = V J l 3 


/*  MAX  SS  USED  IN  VEH  DIRECTORY  */ 


DO  J = 1 TO  J1  ; 

K - j . 

IF  ( V J 1 3 = CHVEH(J)  ) 

THEN  GO  TO  VEHGO  *, 

END  LP9  J 

/*  IF  FALL  OUTTA  ABOVE,  NO  FIND  */ 

RDSTAT  = 2 i 

GO  TO  STEP7  ; 

/*  HERE,  FOUND  WANTED  VEHICLE  IN  DIRECTORY  */ 
RDSTAT  = l ; 


ER5 : 


STEP9: 


IF  ( VEHPTR(K)  <=  MAXD  ) THEN  GO  TO  STEP9  ; 

VEHPTR(K),  REFS ( 7 ) , 


NER  » 5 *, 

PUT  STRING  (DLINE)  DATA  ( K, 
RESID  ) ; 

GO  TO  BUSTED  J 


WRITE  FILE  (RESU)  FROM  (RESULT) 
NOUT  = NOUT  ♦ 1 ; 

NF  * NF  ♦ 1 ; 


GO  TO  RDl  ; 

/*************************************/ 

/*  FINALLY,  THE  TASK  RESULTS  ARE  PROCESSED  */ 
VK3):  RESID  * VJ13  ; 


IF  ( VJ 13  >=  CHTASK(MAXD2)  ) 
THEN  DO  J BOT  * MAXD2  5 
ELSE  DO  J BOT  * l ; TOP 

LP10:  DO  J * BOT  TO  TOP  ; 

K * J ; 

IF  ( V J l 3 * CHTASK(J)  ) 
THEN  GO  TO  TASKGO  ; 
END  LP 10  ; 


TOP  = MAXD  ; END 
=*  MAXD2  ; END  5 


LP10END : 
TASKNOGO: 


/*  IF  FALL  OUTTA  ABOVE,  NO  FIND  AT  ALL  */ 
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507 
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SOURCE  CARO  LISTING  FOR 

P3 : /*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE  - WED/02/MAR/77  */ 

GO  TO  VEHNOGO  *, 

TASKGO:  /*  HERE,  TASK  OIRECTORY  SEARCH  WAS  GOLDEN  */ 

ROSTAT  * 1 ; 

IF  ( TASKPTR ( K ) <*  REFS(ll)  ) THEN  GO  TO  STEP9  ; 


ER6 : 


PJT  STRING  (DLINE)  OATA  ( K,  TASKPTR(K) , REFS  ill)* 
RESID  ) ; 

GO  TO  BUSTED  ; 


/*************************************/ 


/*  HERE,  WHEN  EOF  REACHED  ON  DESCRIPTOR  INPUT  OATASET  */ 

EOFDESC:  CLOSE  FILE  (DESIGS)  ; 

PUT  STRING  (DLINE)  EDIT 

( 'TOTAL  NUMBER  DESCRIPTOR  RECORDS  EXAMINED  : ' , NC  ) 

( X ( 7 ) , A,  P»ZZ,ZZ9*  ) ; 

DISPLAY  ( • ' ) J DISPLAY  ( DLINE  ) J 

PUT  STRING  (DLINE)  EDIT 

( 'TOTAL  RECORDS  SELECTED  WITH  MATCHING  DATA  : • , NF  ) 

( X ( 6 ) , A,  P'ZZ,ZZ9'  ) ; 

DISPLAY  ( DLINE  ) ; 

PUT  STRING  (DLINE)  EDIT 

( 'TOTAL  RECORDS  SELECTEO  WITHOUT  ABBREVIATED  DATA  : ', 
NNF  ) ( A,  P'ZZ,ZZ9'  ) ; 

DISPLAY  ( DLINE  ) ; 

PUT  STRING  (OLINE)  EDIT 

( 'ACCUMULATED  SEARCH  OUTPUT  RECORDS,  THUS  FAR  : », 

NOUT  ) ( X ( 4 ) , A,  P ' ZZ , ZZ9'  ) ; 

DISPLAY  ( DLINE  ) i 

/*  NOW,  DETERMINE  IF  ANOTHER  CYCLE  IS  REQUIRED  */ 

TALLY:  IF  ( NTYPE  >*  3 > THEN  GO  TO  EOJ  ; 

NTYPE  * NTYPE  «•  1 5 

GO  TO  START  ; 


/*************************************/ 

/*  HERE,  PROGRAM  IS  IN  STAGE  OF  TERMINAL  ILLNESS  */ 
BUSTEOi 


PUT  STRING  (CARD)  EOI  T 

( • **  ERROR  NUMBER  ' 

( A,  F ( 2 ) , A ) ; 

OISPLAY  ( • • > ; 

DISPLAY  ( CARD  ) J 


NER,  » HAS  OCCURED  **'  ) 


DISPLAY  ( • 


) 


DISPLAY  ( DLINE  ) 


/************ ************** ***********/ 

/*  THIS  IS  THE  BITTER  ENDE  */ 

EOJ : DLINE  = •**  DESIGNATOR  SEARCH  PROGRAM  IS  TERMINATING'  5 

DISPLAY  ( • ' ) ; DISPLAY  ( OLINE  ) ; 

PUT  STRING  (DLINE)  EDIT 

( • TOTAL  ACCUMULATED  SEARCH  OUTPUT  RECORDS  : ', 
NOUT  ) < A.  P* Z Z , ZZ9 ' ) ; 

DISPLAY  ( • ' I ; DISPLAY  ( DLINE  ) ; 

DISPLAY  ( • • ) ; 
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P3:  /*  RANGE-OF-EFFECTS  (ROE)  SEARCH  MODULE  - WE0/02/MAR/77  ♦/ 

552 

553  CLOSE  FILE  (OIND),  FILE  (COURSE), 

55A  FILE  ( MREF ) , FILE  (DCIN), 

555  FILE  (SARG),  FILE  (RESU),  FILE  (ID)  *, 

556 

557  END  P3  ; 
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P5  A:  /*  PRINT  OF  RAH  ROE  RESULTS  FILE  - M0N/28/FEB/77  */ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

LL 

12 

13 

1* 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


P5A : 


/* 


*/ 

DECLARE 


/*  PRINT  OF  RAW  ROE  RESULTS  FILE  - MON/ 28/FEB/77  */ 
PROC  (INPARM)  OPTIONS  (MAIN)  ; 

REVISIONS  : 

WED/02/ MAR/77  - FIRST  IMPLEMENTATION. 

SAT/05/HAR/77  - FINAL  (HOPEFULLY)  DEBUG  EFFORTS. 
THU/24/ MAR/77  - MODS  PRIOR  TO  TRANSMIT  TO  NCSS. 


1 TTLCARD 
2 PNAME 
2 PTTL 

INPARM 
1 POVER 
2 PAR M2 


STATIC, 
CHAR  ( 10) , 
CHAR  (70), 


/*  PROJECT  TITLE  DATA  BASE  */ 
/*  CKF.ID  */ 


( 


CHAR  ( 100)  VARYING, 
BASED  (PP), 

CHAR  (4), 

DISP,  PTR , DPAGE,  I,  J,  K,  L,  LT, 
NN,  NPAGE,  NR,  NTYPE,  NV, 

NDF , NJ  ) FIXED  BIN  STATIC, 


NC, 


( 


DTTL 

DDPGE 

MAXLTB 


CHAR  (23)  STATIC  INIT 
PAGE  NUMBER  : XXXX*  ), 

PICTURE  *2229*  DEF  DTTL  POS 


(20) 


DECLARE 


FIXED  BIN  STATIC  INIT  ( 60  ) 

) , 


VINTAGE  (3)  CHAR  (8)  STATIC  INIT 

( ‘COURSES' , 'VEHICLES',  'TASKS' 


DTTL2 

D2TY 

DTTL3 


CHAR  (39)  STATIC  INIT 
( 'RANGE-OF-EFFECTS  RESULTS  FOR  : XXXXXXXX' 
CHAR  (8)  DEF  0TTL2  POS  (32), 

CHAR  (39)  STATIC  INIT  ( (39)'-'  ) 


DECLARE 

DECLARE 


DECLARE  1 


( COURSE.  VEHS.  TASKS 

) FILE  RECORO  DIRECT  KEYED  ENV  ( REGIONAL! 1 ) ) 

( CARD,  DLINE  ) CHAR  (80)  STATIC, 

CllO  CHAR  ( 10)  DEF  CARD, 

C 1180  CHAR  (70)  DEF  CARD  POS  (11)  ; 

STATIC, 

FIXED  BIN, 

BASED  (PR), 

PICTURE  '9', 

PICTURE  '9', 

PICTURE  '9', 


MAST 

2 REFS  (40) 


l RESULT 
2 RTYP 
2 RSTAT 
2 RDSTAT 
2 RES  I D 

1 RESC 

( 2 FI,  2 
2 RESCIN 
2 RESCOP 

1 REST 

( 2 FI,  2 
2 RATE 
2 RANK 
2 JOBTASK 

S 16 

VI  (3) 


CHAR  ( 13) , 

BASED  (PR) 
F2,  2 F3  ) 
CHAR  (8), 
CHAR  (4), 


£har 


(1) 


(l)i 


BASEO  (PR). 

F2,  2 F3  ) CHAR 
CHAR  (5), 

CHAR  (2), 

CHAR  (6), 


CHAR  ( 16)  STATIC, 
LABEL  ; 
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69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

70 

PAGE  NUMBER  : 2 

SOURCE  CARD  LISTING  FOR 

P5A:  /+  PRINT  OF  RAW  ROE  RESULTS  FILE  - M0N/28/FEB/77  */ 

DECLARE  Tl  CHAR  132)  STATIC  INIT  ( 

• RECNO  CIN  CDP  COURSE'  ), 

T1U  CHAR  137)  STATIC  INIT  ( 

t 11 

•RECNO 

• 

T 2 

STOCK  NUMBER 
T2U 

CHAR  (46) 
FILE  NUM 

CHAR  (46) 

i , 

STATIC  INIT  < 
TRAINING  DEVICE'  ), 

STATIC  INIT  ( 

1 *7 

80 

81 

T3 

CHAR  (29) 

STATIC  INIT  ( 

82 

• RECNO 

RATE  RANK  JOB  TASK' 

), 

83 

8* 

T3U 

CHAR  (29) 

STATIC  INIT  ( 

85 

i 

) ; 

86 

87 

DECLARE 

WINDUPS  ( 6 ) 

CHAR  (44) 

STATIC  INIT  ( 

88 

• TOTAL  NUMBER  COURSE  RECORDS  PROCESSED  : ', 

89 

• TOTAL 

NUMBER  VEHICLE  RECORDS  PROCESSED  : 

90 

• TOTAL 

NUMBER  JOBTASK  RECORDS  PROCESSED  : 

91 

' TOTAL  NUMBER 

ROE  RESULT  RECORDS  READ  : ', 

92 

•RECORDS 

WITHOUT  MATCHING  ABBREVIATED  DATA  : 

93 

• TOTAL 

NUMBER  DIRECTORY  SEARCH  FAILURES  : ’ ) 

94 

95 

WIND  (6) 

FIXED  BIN 

STATIC  5 

96 

97 

/*************************************/ 

98 

99 

DECLARE 

1 ACRS 

STATIC, 

/*  A8BR.  COURSE  FILE  */ 

100 

2 SET  1 , 

/*  CKF. ACOURSES  */ 

101 

3 CDP 

CHAR  (4), 

102 

3 CIN 

CHAR  (8), 

103 

3 C ST 

CHAR  ( 16) 

* 

104 

3 NOBC 

CHAR  (4), 

105 

3 NEC 

CHAR  (4), 

106 

2 PC 

CHAR  (2), 

107 

2 SET 2 » 

108 

3 RMS 

CHAR  ( 3) , 

109 

3 TYCRS 

CHAR  (2), 

110 

3 SVC 

CHAR  ( 1) , 

111 

3 MI 

CHAR  ( 1), 

112 

2 STCD 

CHAR  ( 1 ) . 

113 

2 STDTE 

PICTURE  1 

(5)9* , 

114 

2 SET  3 , 

115 

3 TRAPS 

CHAR  ( 1 ) , 

116 

3 TPC 

CHAR  ( 5) , 

117 

2 ATT  R 

PICTURE  • 

99V9 • , 

118 

2 STBK 

PICTURE  • 

99V9 ' , 

119 

2 CLEN 

PICTURE  ' 

999'  , 

120 

2 THRS 

PICTURE  ' 

999*  , 

121 

2 LHRS 

PICTURE  • 

999'  , 

122 

2 CAOB 

PICTURE  ' 

( 5 ) 9V99 ' , 

123 

2 CCS 0 

CHAR  ( 1 ) 

• 

t 

124 

125 

DECLARE 

l CINDER  1304) 

STATIC, 

/*  CRS  CIN  DIRECTORY  */ 

126 

2 CHCIN 

CHAR  (8), 

/*  CKF.CRS.DIRCIN  */ 

127 

2 C1NPTR 

FIXED  BIN 

» 

128 

129 

LOADCIN 

CHAR  (760)  BASED  (PLCIN), 

130 

COVCIN  (4) 

CHAR  (760)  BASED  (PTCIN)  ; 

131 

132 

DECLARE 

l CDPDIR  (1200)  STATIC, 

/*  CRS  COP  DIRECTORY  */ 

133 

2 CHCDP 

CHAR  (4), 

/*  CKF.CRS.DIRCDP  */ 

134 

2 CDPPTR 

FIXED  BIN 

9 

135 

136 

LOADCDP 

CHAR  (1200)  BASED  (PLCDP), 

137 

COVCDP  (6) 

CHAR  (1200)  BASED  (PTCDP)  ; 
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138 

139 

140 


174 

175 

176 

177 

178 
1 79 
180 
l 8 1 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 


PAGE  NUMBER  : 


SOURCE  CARD  LISTING  FOR 

P5A:  /♦  PRINT  OF  RAW  ROE  RESULTS  FILE  - M0N/28/FEB/77  */ 

/•ft***********************************/ 


141 

DECLARE 

l AVEHICLES 

STATIC, 

/* 

ABBR.  VEH  FILE  */ 

142 

2 ST3CKN 

CHAR  ( 13) , 

/* 

CKF.AVEHS  */ 

143 

2 DEVDESIG 

CHAR  (9), 

144 

2 DEVNAME 

CHAR  (47), 

145 

2 OEVCOST 

PICTURE  •( 

8 ) 9V99 • 

, 

146 

2 CCS  0 

CHAR  I 1) , 

147 

148 

VCOST 

FIXED  DEC 

(10,2) 

STATIC, 

149 

VOVER 

CHAR  (80) 

BASED  ( PV80 ) ; 

150 

151 

DECLARE 

1 VEHDIR  (200) 

STATIC  , 

/* 

VEHICLE  DIRECTORY  */ 

152 

2 CHVEH 

CHAR  I 13), 

/* 

CKF. VEH. DIR  */ 

153 

2 VEHPTR 

FIXED  BIN, 

154 

155 

COVVEH  (4) 

CHAR  I 750) 

BASED 

(PTVEH) , 

156 

LOADVEH 

CHAR  (750) 

BASED 

( PL VEH ) ; 

157 

158 

/***************♦******♦* ****♦♦♦****♦*/ 

159 

160 

DECLARE 

l ATASKS 

STATIC, 

/* 

ABBR.  TASK  FILE  */ 

161 

2 RATING 

CHAR  (7), 

/* 

CKF. ATASKS  */ 

162 

2 JOBTASK 

CHAR  (6), 

163 

2 TASKTTL 

CHAR  I 50) , 

164 

2 FILL 

CHAR  (6), 

165 

2 BILCOST 

PICTURE  M 8 ) 9V99 • 

, 

166 

2 CC80 

CHAR  ( i ) 5 

167 

168 

DECLARE 

1 TASKDIR  (1200)  STATIC, 

/* 

JOBTASK  FILE  DIRECTORY 

169 

2 CHTASK 

CHAR  I 13) , 

/* 

CKF. TASKS. DIR  */ 

170 

2 TASKPTR 

FIXED  BIN, 

171 

172 

COVTASK  (12) 

CHAR  I 1500)  BASED 

(PTTASK), 

173 

LOADTASK 

CHAR  I 1500)  BASED 

( PLTASK)  ; 

/**********♦******************♦*******/ 

START:  NTYPE.  NC,  NJ,  NV,  NR,  NN,  NDF , 

NP AGE , DPAGE , LT , 

j,  k = o ; 

FLCIN,  FLCDP , FLVEH , FLTASK  a 'O'B 


PP  « AODR  ( INPARM ) *. 

PR  * AODR  (S16I  ; 

PTC  I N = AODR  (CINDER)  ; 
PTCDP  » AODR  (CDPDIR)  ; 
PV80  = AODR  (AVEHICLES)  ; 
PTVEH  = ADDR  ( VEHDIR)  : 
PTTASK  * ADDR  (TASKDIR)  ; 


COMMENCE: 


192 

OPEN  FILE 

193 

FI  LE 

194 

FI  LE 

195 

FILE 

196 

FILE 

197 

FI  LE 

198 

FI  LE 

199 

FILE 

200 

FI  LE 

201 

FILE 

202 

203 

ON  ENOFILE 

204 

205 

READ  FILE 

206 


( MREF ) RECORD  INPUT, 

( ID)  RECORD  INPUT, 
(COURSE)  INPUT , 

( DC  I N ) RECORD  INPUT, 
(DCDP)  RECORD  INPUT, 
(VEHS)  INPUT, 

(OVEH)  RECORD  INPUT, 
(TASKS)  INPUT, 

(DTASK)  RECORD  INPUT, 
( RESU ) RECORD  INPUT  ; 

(RESU)  GO  TO  EOF  ; 
(MREF)  INTO  (MAST)  S 
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207 
? 08 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 


PAGE  NUMBER 


SOURCE  CARO  LISTING  FOR 

P5A : /*  PRINT  OF  RAW  ROE  RESULTS  FILE  - M0N/28/FEB/77  ♦ / 

/*************************************/ 

/+  HERE*  DEVICE  ASSIGNMENTS  ARE  VERIFIED  */ 

FIRST:  DISP,  PTR  = 1 ; 

IF  I PARM2  =»  'BOTH'  ) THEN  GO  TO  STEPA  ; 

IF  ( PARM2  * ’TERM*  ) 

THEN  PTR  * 2 ; 

ELSE  DISP  * 2 J 


/* 

STEPA 


HERE,  PRINTER  DATASET  IS  INITIALIZED  */ 

IF  ( PTR  » 2 ) THEN  30  TO  STEPB  ; 

OPEN  FILE  (SYSPRINT) 

LINESIZE  (120)  PAGESIZE  (60)  ; 

ON  ENDPAGE  (SYSPRINT) 

BEGIN  ; 

NP AGE  * NPAGE  ♦ l ; 


PUT  EDIT  ( 'PAGE  NUMBER 


IF 


( PAGE,  X(10),  A, 
1 ) THEN 


F ( 4 * ) 


, NPAGE  ) 


( NTYPE 
DO  J 

PUT  EDIT  ( Ti,  TiU, 
GO  TO  SKP  ; 

END  ; 


• ) ( R(FMTl)  ) 


FMTi: 


SKP: 

/* 

STEPB 


L PA : 


FORMAT  ( 3 ( SKIP(l), 
IF  ( 


A ) ) 


NTYPE  = 2 ) 
THEN  PUT  EDIT 
ELSE  PUT  EDIT 


T2, 

T3 , 


T2U, 

T3U, 


) ( R(FMT1)  ) 
) ( RIFMT1)  ) 


PUT  SKIP  (1) 
END  ; 


HERE,  INI T ILIZATION  OF  TERMINAL  DATASET  PROCEEDS  */ 
IF  ( DISP  * 2 ) THEN  GO  TO  STEPC  ; 

( NEWDP ) 

61  ) THEN  LT  - 61  5 


ON  CONDITION 
BEGIN  ; 

IF  ( LT  < 


IF  ( LT  < 66  ) THEN 

DO  L a LT  TO  66  ; 
DISPLAY  ( • • ) 

END  LPA  ; 

DISPLAY  ( • • ) J 

DPAGE  = DPAGE  ♦ 1 ; 
DDPGE  * DPAGE  ; 

DISPLAY  ( DTTL  ) : 

DISPLAY  I • • ) S 

LT  = 3 ; 


DISPLAY  ( 
DISPLAY  ( 
LT  = LT  ♦ 
END  ; 


0TTL2  ) ; 
• * ) 

3 ; 


DISPLAY  ( DTTL3  ) 


/* 

STEPC: 


NOW,  MASTER  TITLE  STRIP  IS  OUTPUT  +/ 
REAO  FILE  (ID)  INTO  (CARD)  ; 
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276 

277 

278 

279 

280 
281 
282 

283 

284 

285 
2 86 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 


PAGE  NUMBER  : 


SOURCE  CARU  LISTING  FOR 

P5A:  /*  PRINT  OF  RAW  ROE  RESULTS  FILE  - M0N/28/FEB/77  */ 

0L1NE  * (10)'  • ||  •**  INITIAL  SEARCH  RESULTS  FOR  PROJECT 

I I C110  I I **'  i 
CARO  = 1121*  • II  Cll 80  : 

DISPLAY  I • * ) ; Dl: 


ISPLAY  ( OLINE  ) 
• ) 


DISPLAY  ( CARD  1 5 DISPLAY  ( 

IF  ( PTR  * 2 ) THEN  GO  TO  RDl  ; 

PUT  EDIT  I OLINE*  CARO  ) ( SKIPI3),  A*  SKIP(l), 
GO  TO  RDl  5 

/•I***********************************/ 

/*  HEREIN,  IS  START  OF  MAINLINE  LOOP  */ 

RDl : READ  FILE  IRESU)  INTO  (S16)  ; 

nr  ♦ l ; 


A ) 


NR 

IF 


( RTYP  * NTYPE  ) THEN  GO  TO  STEPl  J 

NTYPE  * RTYP  ; 

02  TY  = VINTAGE  (NTYPE)  J 

IF  ( PTR  * 1 ) THEN  SIGNAL  ENDPAGE  (SYSPRINT)  ; 
IF  ( OISP  - 1 ) THEN  SIGNAL  CONDITION  ( NEWDP ) ; 

STEPl:  GO  TO  VI  (NTYPE)  5 

/*  HERE,  A COURSE  RECORO  IS  PROCESSED  */ 


V l ( 1): 
NOCDATA: 


NC 

IF 


* NC  ♦ l i 

( ROSTAT  « 
00  ; 

NN  * NN 


2 > 
♦ 1 


THEN 


STEP2: 
LP1 : 


PUT  STRING  (OLINE)  EDIT 

( NR.  RESCIN,  'NOTE  - NO  MATCHING  NITRAS  DATA*, 
• AVAILABLE  FOR  THIS  CIN*  ) 

( P*  ZZ , ZZ9* , X(l),  A ( 8 ) , X ( 2 ) , A,  A ) J 

GO  TO  OUTLOOP  ; 

END  NOCDATA  ; 

YECDP  * RESCDP  ; 

LOOKU  = STEP2  J 

GO  TO  FINDCOP  ; 

IF  ( CDPREC  = 0 ) THEN 
DO  ; 

NOF  =»  NDF  ♦ 1 ; 

PUT  STRING  (DUNE)  EDIT 

( NR,  RESCIN,  RESCDP,  COP  COULD  NOT  •, 

•BE  LOCATED  IN  CDP  DIRECTORY • ) 

( P'ZZ,ZZ9',  X(l),  A ( 8 ) , X(l),  A ( 4 ) , 

X ( 2 ) , A,  A ) ; 

GO  TO  OUTLOOP  J 

END  LP1  J 

READ  FILE  (COURSE)  INTO  (ACRS)  KEY  (CDPREC)  5 

PUT  STRING  (DUNE)  EDIT  I NR,  RESCIN,  RESCOP,  CST  ) 

( P ' ZZ , ZZ9 • , X(l),  A ( 8 ) , X(l),  A ( 4 ) , X(l),  A(16)  ) ; 

GO  TO  OUTLOOP  ; 
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3*5 

3*6 

3*7 

3*8 

3*9 

350 

351 

352 

353 
35* 

355 

356 

357 

358 

359 

360 

361 

362 

363 
36* 

365 

366 

367 

368 

369 

370 

371 

372 

373 
37* 

375 

376 

377 

378 

379 

380 

381 

382 

383 
38* 

385 

386 

387 

388 

389 

390 

391 

392 

393 
39* 

395 

396 

397 

398 

399 
*00 
*01 
*02 
*03 
*0* 
*05 
*06 
*07 
*08 
*09 
*10 
*11 
*12 
*13 


SOURCE  CARO  LI^TINg^FOR^  RQE  RESULTS  FILE  - MON/28/FE0/77  */ 
/*  HERE*  VEHICLE  TYPE  RECORDS  ARE  PROCESSED  */ 

VI (2):  nv  * NV  ♦ l ; 


novdata: 


IF  ( RDSTAT  = 2 ) THEN 
NN  ♦ 1 ; 


DO 

NN 


STEP3 : 


LP2 : 


PUT  STRING  (OLINE)  EDIT  ^ 

I NR.  RESID,  •**  NO  ABBREVIATED  VEHICLE  DATA  ' 
•AVAILABLE  **•  ) 

( P*ZZ,ZZ9»,  X(l),  A ( 13  ) , X 1 2 ) * A,  A ) ; 

GO  TO  OUTLOOP  ; 

END  NOVDATA  ; 

YEVEH  * RESID  ; 

LOOKU  a STEP3  ; 

GO  TO  FINDVEH  5 

PUT  STRING  (DUNE)  EDIT  ( NR, 

( P'ZZ,ZZ9',  XU),  A(  13) 


RESID  ) 

) ; 


IF  ( 


VEHREC 
NDF  * a NDF 


0 ) THEN 
♦ l ; 


1 1 


SUBSTR  ( DLINE,  22  ) * 

•*♦  STOCK  NUMBER  COULD  NOT  BE  LOCATED  IN  • 
•DIRECTORY  **•  ; 

GO  TO  OUTLOOP  ; 

END  LP2  ; 

READ  FILE  (VEHS)  INTO  (AVEHICLES)  KEY  (VEHREC)  J 

SUBSTR  I OLINE.  22  ) » 

DEVDESIG  [I  • • II  DEVNAME  i 

GO  TO  OUTLOOP  ; 

/*  NOW,  PROCESS  A TASK  RECORD  HERE  */ 

VI ( 3 ) : NJ  = NJ  ♦ 1 ; 

PUT  STRING  (DLINE)  EDIT  ( NR,  RATE,  RANK,  REST • JQBT ASK  ) 
( P*ZZ,ZZ9*,  X ( 1 ) • A ( 5 ) , X(l),  A( 2 < , X ( 1 ) . A(6)  ) ; 


NOTDATA: 


IF  ( RDSTAT  » 2 ) THEN 
NN  ♦ 1 5 


DO 

NN 


SUBSTR  ( DLINE,  26  ) * 

•**  NO  ABBREVIATED  TASK  DATA  IS  AVAILABLE  **• 

GO  TO  OUTLOOP  ; 

END  NOTDATA  J 

YETASK  * RESID  ; 

LOOKU  * STEP*  : 

GO  TO  FINOTASK  ; 


STEP*: 
LP3 : 


IF  ( TASKREC  * 
DO  ; 

NDF  a NDF 


0 ) THEN 
♦ l ; 


•**  TASK  ID  COULD  NOT  BE  LOCATED  IN  DIRECTORY 
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415 

416 
41  7 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 
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470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 


PAGE  NUMBER 


SOURCE  CARO  LISTING  FOR  _ , 

P5A:  /*  PRINT  OF  RAW  ROE  RESULTS  FILE  - H0N/28/FEB/77  */ 

GO  TO  OUTLOOP  J 

END  LP3  ; 

READ  FILE  (TASKS)  INTO  (ATASKS)  KEY  (TASKREC)  5 
SUBSTR  ( DLINE,  26  ) * TASKTTL  ; 

GO  TO  OUTLOOP  ; 

/*  HERE  IS  THE  PRINTED  LINE  OUTPUT  SEQUENCE  */ 

OUTLOOP:  IF  ( PTR  * 1 > 

THEN  PUT  LIST  (DLINE)  SKIP  (1)  ; 

IF  ( DISP  = 2 ) THEN  GO  TO  RD1  ; 

IF  ( LT  > MAXLTB  ) THEN  SIGNAL  CONDITION  (NEWOP)  J 
DISPLAY  ( DLINE  ) ; 

LT  * LT  ♦ l ; 

GO  TO  RD1  ; 

/*************************************/ 

DECLARE 


BIT  (1)  STATIC. 


( FLC  IN . FLCDP » FLVEH,  FLTASK  ) 

YECIN  CHAR  (8)  STATIC. 

YECDP  CHAR  (4)  STATIC. 

( YETASK,  YEVEH  ) CHAR  (13)  STATIC, 

( CINREC,  CDPREC , VEHREC,  TASKREC,  VEHMAX,  TASKMAX, 
CINMAX,  CDPMAX  ) FIXED  BIN  STATIC, 

LOOKU  LABEL  ; 


/*  CIN  DIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  CIN  IN  YECIN 
EXIT  : CINREC  » 0 (NO  FIND) 
RETURN  VECTOR  IS  LOOKU 


OR  REG  NUMBER 
*/ 


FINDCIN:  IF  ( FLCIN  ) 


CINMAX 
FLCIN  ■ 


> REFS 

• 1 • B 


THEN  GO  TO  CIN2 
(2)  ; 


457 

CINLOAD: 

DO  J = l TO  4 ; 

458 

PLCIN  * ADDR  ( COVCIN  U)  ) ; 

459 

READ  FILE  (DCIN)  INTO  (LOAOCIN)  ; 

460 

END  CINLOAD  ; 

461 

462 

CIN2: 

DO  I * 1 TO  CINMAX  ; 

463 

IF  ( YECIN  CHCIN(I)  ) THEN  GO  TO  ECIN2  ; 

464 

CINREC  « CINPTR  (I)  ; 

465 

GO  TO  LOOKU  : 

466 

ECIN2: 

END  CIN2  ! 

467 

468 

NFC  IN: 

CINREC  * 0 ; 

469 

GO  TO  LOOKU  ; 

/+  COP  DIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  COP  IN  YECDP 
EXIT  : CDPREC  » 0 (NO  FINO). 
RETURN  VECTOR  IS  LOOKU 


OR  REC  NUMBER 

*/ 


FINDCDP:  IF  ( FLCDP  ) 


CDPMAX  ; 
FLCOP  » 


REFS 

• 1*B 


THEN  GO  TO  C0P2 
(3)  ; 


CDPLOAO: 


DO  J * 1 TO  4 
PLCDP  = ADDR  ( 


:OVCDP  (J)  ) 
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483 

4B4 

485 

486 
4B7 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 


P5A: 

CDP2: 

ECDP2 : 
NFCDP : 


/*  P*INT  OF  RAW  ROE  RESULTS  FILE  - M0N/28/FEB/77  */ 


READ  FILE  (DCDP) 
END  CDPLOAD  *. 


INTO  (LOADCDP) 


DO  I = 1 TO  COPMAX  ; 

IF  ( YECDP  -•*  CHCDP ( I > ) 
CDPREC  * CDPPTRI I ) 
GO  TO  LOOKU  ; 

END  CDP2  ; 

CDPREC  = 0 5 

GO  TO  LOOKU  ; 


THEN  GO  TO  ECDP2 


/*  VEHICLE  ID  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  VEH  ID  IN  YEVEH 
EXIT  : VEHREC  * 0 (NO  FIND),  OR  REC  NUMBER 


RETURN  VECTOR  IS  LOOKU 
FINDVEH:  IF  ( FLVEH  ) THEN  GO  TO  VEH2 


*/ 


VEHMAX 
FLVEH  = 


> REFS  (8) 
' 1 * B ; 


VEHLOAD: 

VEH2 : 

EVEH2 : 
NFVEH: 


DO  J « l TO  4 ; 

PL VEH  * ADDR  ( COVVEH  (J)  ) ; 

READ  FILE  ( DVEH)  INTO  (LOADVEH)  ; 

END  VEHLOAD  ; 

DO  I * 1 TO  VEHMAX  ; 

IF  ( YEVEH  -=  CHVEH(I)  ) THEN  GO  TO  EVEH2 
VEHREC  * VEHPTR  (I)  ; 

GO  TO  LOOKU  ; 

END  VEH2  J 


VEHREC  * 0 5 

GO  TO  LOOKU  J 

/*  TASK  ID  DIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  TASK  ID  (13-CHAR)  IN  YETASK 
EXIT  : TASKREC  * 0 (NO  FIND)  OR  REC  NUMBER 
RETURN  VECTOR  IS  LOOKU  */ 

FINDTASK:  IF  ( FLTASK  ) THEN  GO  TO  TASK2  ; 

TASKMAX  * REFS  (12)  ; 

FLTASK  * ' 1 * B ; 


TASKLOAD: 


TASK2: 


ETASK2: 


DO  J * 1 TO  12  ; 

PLTASK  = ADDR  ( COVTASK  (J)  ) ! 

READ  FILE  (DTASK)  INTO  (LOADTASK)  ; 

END  TASKLOAD  ; 

03  I * 1 TO  TASXMAX  ; 

IF  ( YETASK  CHTASK(I)  ) THEN  GO  TO  ETASK2 
TASKREC  = TASKPTR  ( I ) ; 

GO  TO  LOOKU  ; 

END  TASK2  ; 


NFTASK:  TASKREC  * 0 : 

GO  TO  LOOKU  5 

/*************************************/ 

/*  HERE  IS  EOF  WINDUP  PROCESSING  */ 
EOF: 


WIND(1)  * NC 
WIND! 3)  * NJ 
W IND ( 5)  * NN 


W INO( 2 ) 
W I ND( 4 ) 
WIND! 6) 


NV  i 
NR  I 
NDF 


IF  I PTR  > l ) THEN  PUT  SKIP  (3) 
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557 
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56* 

565 
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570 
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572 
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57* 

575 

576 
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SOURCE  CARO  LISTING  FOR 

P5A:  /♦  PRINT  OF  RAW  ROE  RESULTS  FILE  - H0N/28/FEB/77  */ 

DISPLAY  ( • • ) I DISPLAY  ( » • } S 

DISPLAY  ( •**  RESULTS  FILE  NOW  AT  END-OF-F ILE  **•  ) J 

DISPLAY  ( • * ) ; 


summary: 


DO  J = 1 TO  6 ; 

PUT  STRING  (DLINE) 

( W I NDUPS ( J ) , 

IF  ( PTR  * 1 ) 

THEN  PUT  LIST 

DISPLAY  ( DLINE  ) i 

END  SUMMARY  ; 


EDIT 
WIND! J) 


( (10)*  ' 


( A( ** ) t 
I I DLINE 


IF  C PTR  : 
DISPLAY  ( 


1 ) 


THEN  CLOSE  FILE 
' ) J 


(SYSPRINT) 


P*ZZ,ZZ9*  ) 
) SKIP  (1) 


CLOSE  FILE  (MREF),  FILE  (ID).  FILE  (RESU), 
FILE  (COURSE).  FILE  IDCOP), 
file  (vehs),  File  idveh), 

FILE  (TASKS),  FILE  (OTASK)  J 


END  PSA 


D . 6-41 


TAEG  REPORT  NO.  40 


PAGE  NUMBER 


SOURCE  CARD  LISTING  FOR 
P5B:  /*  INTERACTIVE 


SEARCH  RESULTS  EDITOR  - WED/09/MAR /77  ♦/ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
6B 


P5BJ 


/♦  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 
PROC  OPTIONS  (MAIN)  ; 


/* 


*/ 


REVISIONS  : 

FR I / 1 1/ MAR/77  - 


VERYFIRST  IMPLEMENTATION. 


MON/ 2 1/ MAR/77  - MODS  PRIOR  TO  TRANSMIT  TO  NCSS. 


DECLARE  ( TOTREC.  MOD'  Nt  Nl , N2 , Lit  L2t  L3.  NREC , NR  EC  A,  NADD, 
NLINE,  NEE.  I.  J l.  J2,  J3.  J4,  MAXADD,  MAXD,  MAXR, 
NCONV,  NER,  NFIRST,  NN,  NOS, 

J,  K,  L ) FIXED  BIN  STATIC, 


) CHAR  (80)  STATIC. 
CHAR  ( 10)  DEF  CARO 
(70)  DEF  CARO 
(5)  DEF  CARD, 


( CARD,  DUNE 
CUO 

Cl  1 80  CHAR 

C15  CHAR  _ 

C16  CHAR  (6)  DEF  CARD, 

C 12  CHAR  (2)  DEF  CARD, 

C 1 7 CHAR  (7)  DEF  CARD, 

CTAB  (80)  CHAR  (1)  DEF  CARD, 

( NIC,  N2C  ) CHAR  (5)  STATIC, 

( ROUTE  X,  VI ( 3 ) , 

ROUTE  ) LABEL  i 


POS 

POS 


( 1)  , 
(11), 


DECLARE  ( 


COURSE,  VEHS, 

TASKS  ) FILE 


RECORD  DIRECT  KEYED  ENV  ( REGIONAL! 1)  ) 


DECLARE  ADDS  (500) 

NEW 

NTYP 

NSTAT 

NDSTAT 

NID 

NCIN 

NCDP 

NRATE 

NRANK 

N JT  ASK 

1 MODS  (500) 
2 MTYP 
2 MSTAT 
2 MDSTAT 
2 FILL 


CHAR  ( 16)  STATIC, 


CHAR  ( 16) 
PICTURE  • 
PICTURE  • 
PICTURE  • 
CHAR  (13) 


CHAR 

CHAR 

CHAR 

CHAR 

CHAR 


(8) 

(4) 

(5) 
(2) 

(6) 


STATIC, 

9*  DEF  NEW  POS  (1) 

9*  DEF  NEW  POS  (2) 

9'  DEF  NEW  POS  (3), 

DEF  NEW  POS  (4), 
DEF  NEW  POS 
DEF  NEW  POS 
DEF  NEW  POS 
DEF  NEW  POS 
DEF  NEW  POS 


(4). 
(12), 
(4)  , 
(9)  . 
(11), 


BASED  (PM), 
CHAR  ( 1) , 
CHAR  (1), 
CHAR  (1), 
CHAR  (13)  5 


DECLARE  1 RESULT  (1200)  STATIC, 

2 RTYP  PICTURE  *9*, 
2 RSTAT  PICTURE  '9» , 
2 RDSTAT  PICTURE  '9*, 
2 RES  ID  CHAR  ( 13) , 


RESREC 
S 16 


( 1200) 


CHAR  ( 16) 
CHAR  ( 16) 


BASED  (PR), 
STATIC, 


RESC  (1200)  BASED  (PR). 

1 2 FI,  2 F2,  2 F3  ) CHAR  (1) 

2 RESCIN  CHAR  ( 8) , 

2 RESCDP  CHAR  (4), 

2 F4  CHAR  ( 1 ) , 

REST  (1200)  BASED  (PR), 

( 2 FI,  2 F2 , 2 F3  ) CHAR  (1), 
2 RATE  CHAR  (5), 

2 RANK  CHAR  ( 2) , 
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P5B : 

/*  INTERACTIVE  SEARCH  RESULTS  1 

69 

2 JOBTASK 

CHAR  (6)  ; 

TO 

n 

DECLARE 

1 MAST 

STATIC , 

72 

2 REFS  140) 

FIXED  BIN  ; 

73 

74 

DECLARE 

l TTLCARD 

STATIC. 

/* 

75 

2 PNAME 

CHAR  ( 10) , 

/* 

76 

2 PTTL 

CHAR  (70). 

77 

78 

INPARM 

CHAR  ( 100) 

VARY  I N' 

79 

80 

1 POVER 

BASED  (PP), 

81 

2 PARMl 

CHAR  (4). 

82 

2 PARM2 

CHAR  (4)  ; 

83 

84 

/ ** ******************* *** *************/ 

85 

86 

DECLARE 

l CINDER  (304) 

STATIC. 

/* 

87 

2 CHCIN 

CHAR  (8), 

/* 

88 

2 CINPTR 

FIXED  BIN. 

89 

90 

LOAOCIN 

CHAR  (760) 

BASED 

91 

COVCIN  (4) 

CHAR  (760) 

BASED 

92 

93 

DECLARE 

l CDPDIR  (12001 

1 STATIC, 

/* 

94 

2 CHCDP 

CHAR  (4), 

/* 

95 

2 CDPPTR 

FIXED  BIN, 

96 

97 

LOADCDP 

CHAR  (1200) 

BASED 

98 

COVCDP  (6) 

CHAR  ( 1200) 

BASED 

99 

100 

DECLARE 

l ACRS 

STATIC, 

/ + 

101 

2 SET  l , 

/* 

102 

3 C DP 

CHAR  (4), 

103 

3 CIN 

CHAR  (8). 

104 

3 C ST 

CHAR  ( 16), 

105 

3 NOBC 

CHAR  (4), 

106 

3 NEC 

CHAR  (4), 

107 

2 PC 

CHAR  (2), 

108 

2 SET  2 » 

109 

3 RMS 

CHAR  (3), 

110 

3 TYCRS 

CHAR  (2), 

111 

3 SVC 

CHAR  ( l) , 

112 

3 MI 

CHAR  (1), 

113 

2 STCD 

CHAR  (1), 

114 

2 STOTE 

PICTURE  • ( 5 ) 9 • * 

115 

2 SET 3 » 

116 

3 TRAPS 

CHAR  ( 1 ) , 

117 

3 T PC 

CHAR  (5), 

118 

2 ATTR 

PICTURE  '99V9*, 

119 

2 STBK 

PICTURE  ' 99V9 ' , 

120 

2 CLEN 

PICTURE  •999', 

121 

2 THRS 

PICTURE  *999', 

122 

2 LHRS 

PICTURE  *999* , 

123 

2 CADB 

PICTURE  ' ( 5 ) 9V99 • 

124 

2 CC80 

CHAR  ( 1 ) ; 

125 

126 

/ ****  *******  ******  ***  * *******  *+***/ 

127 

128 

DECLARE 

1 VEHDIR  (200) 

STATIC, 

/* 

129 

2 CHVEH 

CHAR  (13), 

/* 

130 

2 VEHPTR 

FIXED  BIN, 

131 

132 

COVVEH  (4) 

CHAR  (750) 

BASED 

133 

LOADVEH 

CHAR  ( 750) 

BASED 

134 

135 

DECLARE 

1 AVEHICLES 

STATIC, 

/* 

136 

2 STDCKN 

CHAR  ( 13) , 

/* 

137 

2 DEVDESIG 

CHAR  (9), 

EOITOR  - HE 0/09/M AR/77  */ 


PROJECT  TITLE 
CKF. TITLE  */ 


DATA  BASE  */ 


(PLCIN), 

( PTC  I N ) ; 

CRS  COP  DIRECTORY 
CKF.CRS.DIRCDP  */ 


(PLCDP), 
( PTCDP ) 


*/ 
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179 

180 
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184 

185 
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SOURCE  CARD  LISTING  FOR  ,,  ^ 

P5B:  /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 

2 DEVNAME  CHAR  (47), 

2 DEVCOST  PICTURE  M8)9V99', 

2 CC80  CHAR  II), 

VOVER  CHAR  (80)  BASED  (PV80)  ; 

/♦♦♦I*********************************/ 


DECLARE  1 TASKDIR  (1200)  STATIC, 


2 CHTASK 
2 TASKPTR 

COVTASK  (12) 
LOADTASK 


CHAR  ( 13), 
FIXED  BIN, 

CHAR  ( 1500) 
CHAR  ( 1500) 


/*  JOBTASK  FILE  DIRECTORY  */ 
/*  CKF. TASKS. DIR  */ 


BASED  ( PTTASK ) , 
BASED  (PLTASK) 


DECLARE  1 


AT  ASX  S 
2 RATING 
2 JOBTASK 
2 TASKTTL 
2 FILL 
2 BILCOST 
2 CC90 


STATIC, 

CHAR  (7), 

CHAR  (6). 

CHAR  (50), 

CHAR  (6). 

PICTURE  *18) 9V99 • , 
CHAR  ( 1 ) ; 


/*  ABBR.  TASK  FILE  */ 
/*  CKF • AT  ASKS  */ 


/********************************«****/ 

START:  MOD,  TOTREC,  NADD,  MAXADD,  NEE, 

J,  K = 6 ; 

PM  = AD DR  (ADDS)  ; 

PR  = ADDR  (RESULT)  *, 

PTC  I N * ADDR  (CINDER)  ; 

PTCDP  * ADDR  (CDPDIR)  ; 

PTVEH  * ADDR  (VEHDIR)  ; 

PV80  = ADDR  (AVEHICLES)  J 
PTTASK  * ADOR  (TASKOIR)  J 
PP  = ADDR  ( INPARM)  ; 

ADOS  = ' ' ; 

COMMENCE: 

OPEN  FILE  (MREF)  RECORD  INPUT, 

FILE  (ID)  RECORD  INPUT, 

FILE  (COURSE)  INPUT, 

FILE  ( DC  I N ) RECORD  INPUT, 

FILE  ( DCDP ) RECORD  INPUT, 

FILE  (VEHS)  INPJT , 

FILE  ( DVEH ) RECORD  INPUT, 

FILE  (TASKS)  INPUT, 

FILE  (DTASK)  RECORD  INPUT, 

FILE  (RESU)  RECORD  INPUT; 

READ  FILE  (MREF)  INTO  (MAST)  ; 

ON  CONVERSION 
BEGIN  ; 

DLINE  * ' **  ILLEGAL  NUMERIC  CONVERSION  ; 

DISPLAY  ( ' • ) J DISPLAY  ( DLINE  ) *, 

GO  TO  PROMPTA  ; 

END  ; 

/*  HERE,  LEADIN  TITLE  STRIP  IS  PRODUCED  */ 

READ  FILE  (ID)  INTO  (CARD)  5 

DLINE  = (10)'  • ||  •**  ROE  SEARCH  RESULTS  EDIT  FOR  PROJECT  • 

II  CllO  II*  **•  ; 

CARD  * ( 13) ' * ||  C1180  J 

DISPLAY  ( • • ) ; DISPLAY  ( DLINE  ) i 
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227 
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229 
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232 

233 

234 

235 

236 

237 
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241 
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273 

274 
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PAGE  NUMBER  : 4 

SOURCE  CARO  LISTING  FOR 

P5B:  /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 

DISPLAY  ( CARD  ) *, 

DISPLAY  ( • • ) ; 

/♦♦****♦*♦*  **♦*  *♦♦*♦***♦♦♦*♦♦ *♦♦♦#♦*♦♦/ 

/*  FIRST,  FETCH  THE  RESULTS  FILE  INTO  MS  V 

ON  ENDFILE  (RESU)  GO  TO  L0AD2  J 

LOADR:  03  J * 1 TO  1200  ; 

READ  FILE  (RESU)  INTO  (S16)  ; 

TOTREC  = J ; 

RESREC  (J)  = S16  ; 

END  LOADR  ; 

ER 1 • NER  * i • 

DLINE  * J MORE  THAN  1200  RESULTS  RECORDS  - CANNOT  EDIT'  ; 
G3  TO  BUSTED  ; 

L0AD2:  CLOSE  FILE  (RESU)  ; 

PUT  STRING  (DLINE)  EDIT 

( •**  TOTREC,  • HAVE  BEEN  LOADED  INTO  *, 

•MEMORY  FOR  EDITING*  ) ( A,  FC4),  A,  A ) J 

DISPLAY  ( • • ) ; DISPLAY  ( DLINE  ) ; 

/ft***********************************/ 

/*  HERE  IS  CENTRAL  PROMPT  LOOP  AND  REPLY-LOOKUP  SEQUENCE  */ 

PROMPTA:  DISPLAY  ( • • ) ; 

DISPLAY  ( •**  MAKE  NEXT  ACTION  REQUEST*  ) REPLY  I CARO  ) 

IF  ( CARO  = • • ) THEN  GO  TO  PROMPTA  ; 

IF  ( CTAB(i)  -.*••)  THEN  GO  TO  ELOOK  ; 

LPl : D3  J * l TO  20  ; 

IF  ( CTAB ( J ) * • • ) THEN  GO  TO  ELPl  S 
CARD  = SUBS TR  ( CARO,  J ) J 
GO  TO  ELOOK  ; 

ELPl:  END  LPl  J 


BUMENTRY:  DISPLAY  ( 
>LAY  ( 
IT  *-  T 


* ' ) : 

DISPLAY  ( (10)*  ' II  **♦  CANNOT  DECODE  LAST  ENTRY  • 
TRY  AGAIN*  ) ; 

GO  TO  PROMPTA  ; 


255 

ELOOK:  IF 

( 

Cl  2 « 

•D  • ) 

1 ( 

C17  = • 

DELETE  • ) 

256 

THEN 

GO  TO  OELETE  *, 

257 

258 

IF 

( 

Cl  2 = 

*P  • ) 

I ( 

C16  * • 

PRINT  * ) 

259 

THEN 

GO  TO  PR 

I NT 

» 

260 

261 

IF 

( 

Cl  5 =■ 

•ADOC  ' 

) 

THEN  GO 

TO  ADDCOURSE  ; 

262 

IF 

( 

Cl  5 » 

•ADDV  • 

) 

THEN  GO 

TO  AODVEHI CLE  J 

263 

IF 

I 

Cl  5 = 

* ADD J • 

) 

( C 1 5 

= * ADDT  • ) 

264 

THEN 

GO  TO  AD0J3BTASK  ; 

265 

IF 

( 

Cl  5 =■ 

•QUIT  * 

) 

THEN  GO 

TO  QUIT  ; 

GO  TO  BUMENTRY  ; 

/************** ****************** ***«*/ 

/*  THIS  IS  PROCESSOR  FOR  SINGLE  / MULTIPLE  DELETES  */ 

DELETE:  ROUTE  = STEP1  ; 

G3  TO  FINDNOS  ; 
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SOURCE  CARD  LISTING  FOR 

/*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 


P5B: 
STEP1 : 

STEP2: 

STEP3 : 


K = 
IF 


Nl  ; 

( N2  = 


0 ) THEN  N2 


Nl 


ROUTE  = STEP3  J 

GO  TO  FINDREC 


IF  ( 


K > TOTREC  ) 

THEN  DO  ; MTYP  (NRECA) 
ELSE  DO  ; RDSTAT  ( NREC ) 


•0* 

3 ; 


END  ; 
END  ; 


K = 
IF 


k «■  l ; 

( K <=  N2 


DLINE  = 'DELETED  RECORD  NUMBER 
IF  ( NOS  = 2 ) THEN 

SUBSTR  (DLINE, 31)  = 'THRU 


) THEN  GO  TO  STEP2  ; 

' II  NIC 
1 1 N2C  ; 

STEP*:  DISPLAY  ( DLINE  ) J 

STEP5:  MOD  = 1 ; 

GO  TO  PROMPTA  ; 

/it***********************************/ 

/*  HEREIN  IS  THE  PROCESSING  FOR  THE  KEYBOARD  PRINT  COMMAND  */ 


/*  SIGNAL,  FILE  HAS  BEEN  CHANGED  */ 


PRINT: 

STEP6: 

STEP7: 

STEP8: 


ROUTE  = STEP6  ; 

GO  TO  FINDNOS 


K ■ 

IF 


Nl  ; 
( NOS 


* 1 ) THEN  N2  * Nl 


ROUTE  = STEP8  : 

GO  TO  FINDREC  ; 

IF  ( K > TOTREC  ) 

THEN  NEW  = ADDS  (NRECA) 
ELSE  NEW  » RESREC  (NREC) 


N = NTYP  : 
IF  ( N > 0 


ER2 : 


) L ( N < * ) THEN  GO  TO  VI 
OATA  ( NEW,  N, 


NER  = 2 ; 

PJT  STRING  (OLINE) 
GO  TO  BUSTED 


(N)  ; 

k ) ; 


/*  HERE,  COJRSE  RESULTS  ARE  PRINTED  */ 


VI  l 1) 


MAXD  * REFS  (2) 
MAXR  * REFS  (1) 
NLINE  * 1 i 


/*  MAX  SS  USED  IN  DIRECTORY  ♦/ 

/♦  MAX  COURSE  REC  NUM  */ 
f*  ALWAYS  1 LINE  WITH  COURSES  */ 


PUT  STRING  (DLINE)  EDIT  ( • RECNO/C I N/CDP/T I TLE 
K,  •/'.  NC IN,  •/',  NCDP,  •/  ' ) 

( A,  P‘22, Z79',  A,  A ( 8 ) , A,  A(*),  A ) ; 

IF  ( NOSTAT  x i ) THEN  GO  TO  STEP9  ; 

SUBSTR  (DLINE, *5)  * '(NO  MATCHING  DATA)'  J 
GO  TO  OUTLOOP  ; 


STEP9 : 


YECDP 

LOOKU 


GO 


NCDP  : 
STEPIO  ; 

TO  FINDCDP 


IF  ( COPREC  > 0 ) THEN  GO  TO  STEPIO  : 
SUBSTR  (DLINE, *5)  = 'COP  NOT  IN  DIRECTORY' 
GO  TO  OUTLOOP  ; 
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364 
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366 

367 
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369 

370 

371 

372 

373 
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375 

376 

377 
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379 

380 

381 
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383 

384 

385 

386 

387 

388 

389 

390 

391 

392 
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P5B: 

STEP10: 
ER3 : 


/*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/HAR/77  */ 


IF  I CDPREC  <=  MAXR  ) THEN  GO  TO  STEP11  S 
NER  = 3 ; 

PJT  STRING  (OLIVE)  OATA  ( CDPREC,  MAXR, 
GO  TO  BUSTED  ; 


K ) 


STEPll:  READ  FILE  (COURSE)  INTO  (ACRS)  KEY  (CDPREC) 
SUBSTR  ( DL INE ,45 ) * CST  ; 

G3  TO  OUTLOOP  ; 

/*  HERE,  VEHICLE  RECORD  PRINTING  IS  SETUP  */ 


VI  ( 2 ) 


MAXD  = REFS  (8)  ; 

MAXR  = REFS  (7)  ; 

NLINE  = l J 
NN  * 46  : 

PUT  STRING  (DLINE)  EDIT  ( • RECNO/STOCK/F I LE  NUM  : • 


STP12A! 


STEP12 


STEP13*. 


STEP14 : 
ER4 : 


) ( A,  P'  ZZ,ZZ9' , A,  A ( 13) , A ) 

THEN  GO  TO  STEP12  i 
* M NO  MATCHING  DATA) • 


'/  • , NID, 

IF  ( NOSTAT  * 1 ) 

SUBSTR  (DLINE, NN) 

GO  TO  OUTLOOP  5 

YEVEH  * NID  ; 

LOOKU  * STEP13  ; 

GO  TO  FINDVEH  ; 

IF  ( VEHREC  > 0 ) THEN  GO  TO  STEP14  ; 

SUBSTR  ( DL I NE , 45 ) = 'VEHICLE  NOT  IN  DIRECTORY*  ; 
GO  TO  OUTLOOP  ; 

IF  ( VEHREC  <*  MAXR  ) THEN  GO  TO  STEP15  ; 

NER  » 4 ; 

PJT  STRING  (DLINE)  DATA  ( VEHREC,  MAXR,  K ) 
GO  TO  BUSTED  ; 


STEP15 : REAO  FILE  (VEHS)  INTO  (AVEHICLES)  KEY  (VEHREC) 

SUBSTR  ( DL I NE , 45 ) = DEVDESIG  J 
CARD  » • • ; 

SUBSTR  (CARD, 21)  * DEVNAME  ; 


STP15A: 


NLINE  * 2 5 

GO  TO  OUTLOOP 


/*  HERE,  FINALLY,  JOBTASK  PROCESSING  ENSUES  */ 

V 1 ( 3 ) : MAXD  * REFS  (12)  ; 

MAXR  = REFS  (11)  5 
NLINE  « 1 J 
NN  » 47  ; 

PUT  STRING  (DLINE)  EDIT  ( • RECNO/RATE/RANK/ JOB 


V,  NRATE , '/', 
( A,  P'ZZ,ZZ9', 


NRANK  < 


NJTASK  ) 

) ; 


STEP  16 ! 


IF  ( NDSTAT  * 2 ) THEN  GO  TO  STP12A  ; 

YETASK  * NID  ; 

LOOKU  » STEP16  ; 

GO  TO  FINDTASK  ; 

IF  ( TASKREC  > 0 ) THEN  GO  TO  STEP17  ; 

SUBSTR  (DLINE, 47)  - 'JOBTASK  NOT  IN  DIRECTORY' 
GO  TO  OUTLOOP  ; 


STEP17:  IF  ( TASKREC  <»  MAXR  ) THEN  GO  TO  STEP18 
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PAGE  NUMBER  : 7 

SOURCE  CARO  LISTING  FOR  _ ...  „ 

P5B : /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 

ER5 : NER  = 5 5 

PUT  STRING  (OLINE)  OATA  ( TASKREC,  MAXR,  K ) 5 
GO  TO  BUSTED  i 

STEP18:  READ  FILE  (TASKS1  INTO  (ATASKS)  KEY  (TASKREC)  J 

TASKTTL  ; 


CARO  = • • ; 

SUBSTR  ( CARO,  10  ) 


GO  TO  STP15A  ; 

/*  HERE  IS  THE  COMMON  OUTPUT  SEQUENCE  FOR  COURSES,  VEHICLES, 
AND  TASKS  RECORO  PRINT  */ 

OUTLOOP:  01  SPLAY  < • • ) ; 

0 1 SPLAY  ( OLINE  ) ; 

IF  ( NLINE  * 2 ) THEN 
DISPLAY  ( CARO  ) { 

K a K «•  1 ; 

IF  < K <*  N2  ) THEN  GO  TO  STEP7  J 

DISPLAY  < • • ) 5 

GO  TO  PROMPTA  ; 


/I************************************/ 

/*  HERE  WE  HAVE  THE  PROCESSING  ROUTINES  FOR  THE  ADO-COURSES 
(AODC)  KEYBOARD  ENTRY  */ 

ADDCOURSE: 

AODC:  IF  ( MAXAOD  > 0 ) THEN  GO  TO  BUMAOO  ; 

MAXO  = REFS  (2)  • 

MAXR  = REFS  (1)  J 
NFIRST  * l J 
NLINE  » 1 ; 

ROUTEX  » PROMPTA  ; 

ROUTE  * STEP  19  I 

GO  TO  FINOASLASH  ; 

STEP19:  YECIN  * SUBSTR  < CARO,  CJi+11,  U2-J1-1)  ) 5 

YECOP  = ' ' ; 

IF  ( J3  * 0 ) I ( IJ3  - J2)  * l ) THEN  GO  TO  STP19A  ; 

YECOP  = SUBSTR  ( CARD,  IJ2  ♦ l),  ( J 3 - J2  - 1)  ) ; 

STP19A:  NTYP  * 1 ; NST AT  = 2 ; NOSTAT  * 2 *. 

NIO  = • • 5 NCIN  * YECIN  ; NCOP  » YECOP  ; 

NADO  * NADO  ♦ l ; 

IF  ( NADO  <=  500  ) THEN  GO  TO  STEP 20  l 

BUMAOO:  NADO  = NADO  - 1 i 

MAX AOO  = NADO  ; 

OLINE  * •**  A TOTAL  OF  ' I I NADO  ||  • NEW  RECORDS  HAVE  • 

I I 'BEEN  ADDED'  ; 

0 1 SPLAY  ( • ' ) *,  DISPLAY  { OLINE  ) ; 

OLINE  » ' ANOTHER  RUN  OF  THIS  ROUTINE  MUST  BE  MAOE  ’ 

II  'TO  ENTER  FURTHER  ADDITIONS'  ; 

DISPLAY  ( OLINE  ) ; 

GO  TO  PROMPTA  ; 

STEP20:  NREC  * TOTREC  ♦ NADD  5 
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PAGE  NUMBER 


SOURCE  CARD  LISTING  FOR 

P5B : /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 

DLINE  = 'THE  FOLLOWING  RECORD(S)  HAS/HAVE  BEEN  ADDED...* 
DISPLAY  ( • • ) J DISPLAY  ( DLINE  ) J 


PUT  STRING  (DLINE)  EDIT  ( (10)*  '»  • RECNO/C IN/CDP/COURSE 

YECDP,  •/*  ) 

A ( 8 ) » A,  A(  6 ) * A > ; 


NR  EC»  •/*,  YECIN 
( A, 


, V*, 

A,  P'ZZ,ZZ9{,  A, 


IF  I YECDP  = • * ) THEN  GO  TO  STEP23  J 

/*  HERE.  THE  ENTERED  CDP  WAS  NOT  BLANK,  LOOK  IT  UP  */ 

LOOKU  * STEP21  ; 

GO  TO  FINDCDP  ; 

STEP21:  IF  I COPREC  > 0 ) THEN  GO  TO  STEP22  J 

STEP21A:  SUBSTR  (DLINE,  55)  » * (NO  MATCHING  DATA)*  J 

GO  TO  ADDOUT  ; 

STEP22 : IF  < CDPREC  > MAXR  ) THEN  GO  TO  ER3  5 

READ  FILE  (COURSE)  INTO  (ACRS)  KEY  (CDPREC)  ; 

SUBSTR  (DLINE,  55)  » CST  ; 

NDSTAT  * l ; 


GO  TO  AODOUT  ; 

/*  HERE,  THE  GIVEN  CDP  WAS  BLANK  ; TRY  CIN  LOOKUP  ♦/ 

STEP23:  LOOKU  = STEP26  ; 

GO  TO  FINDCIN  ; 

STEP26:  IF  ( CINREC  = 0 ) THEN  GO  TO  STEP21A  ; 

R3UTEX  » STEP26  ; 

IF  ( CINREC  > MAXR  ) THEN  GO  TO  ER3  ; 

STEP25:  READ  FILE  (COURSE)  INTO  (ACRS)  KEY  (CINREC)  5 

IF  ( CIN  YECIN  ) THEN  GO  TO  PROMPTA  ; 

SUBSTR  ( DLINE,  69  ) » CDP  ||  «/  • II  CST  ; 

YECDP  « CDP  ; NCDP  » CDP  * 

IF  ( NFIRST  = 1 > THEN- 

DO  *.  NFI.RST  = 2 ♦ GO  TO  ADDOUT  ; END  ; 

NADO  = NADD  ♦ 1 J 

IF  ( NADD  > 500  ) THEN  GO  TO  BUMADD  ; 

NREC  * TOTREC  ♦ NADD  ; 

PUT  STRING  (SUBSTR(DLINE,33,6» ) EDIT  (NREC)  ( P*ZZ,ZZ9*  ) 

/*  HERE  IS  THE  COMMON  OUTPUT  ROUTINE  FOR  ADDITIONS  */ 

AODOUT:  DISPLAY  ( • • ) ; 

DISPLAY  ( DLINE  » ; 

IF  ( NLINE  = 2 ) THEN 

DISPLAY  ( CARD  ) ; 

ADDS  (NADD)  * NEW  ; 

GD  TO  ROUTEX  ; /*  NORMAL  ROUTE  IS  TO  PROMPTX  */ 

STEP26 : /*  HERE.  FROM  ROUTEX,  WHEN  POSSIBLY  ANOTHER  CIN/CDP 
RECORD  TO  BE  EXTRACTED  */ 


, 
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SOURCE  CARO  LISTING  FOR  „ , 

P5B:  /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 

CINREC  * CINREC  ♦ i ; 

IF  I CINREC  > MAXR  ) THEN  GO  TO  PROMPTA  ; 

ELSE  GO  TO  STEP25  ; 

/*************************************/ 

/*  NOW,  THE  PROCESSING  ENSUES  FOR  ADDITIONS  OF  VEHICLE  RECORDS  */ 


AODVEHICLE: 
ADOV:  IF  ( 


ROUTEX 
NLINE 
MAXD  * 
MAXR  * 


MAXADD  > 0 ) THEN  GO  TO  BUMADD  ; 
PROMPTA  ; 


REFS  (8) 
REFS  (7) 


ROUTE  * STEP27  ; 

GO  TO  FINDASLASH  ; 


STEP27:  YEVEH 
NTYP  = 
NID  = 


= SUBSTR  I CARD,  IJ1  ♦ 1),  (J2  - J1  - 
2 J NSTAT  * 2 ; NDSTAT  * 2 ; 

YEVEH  ; 


1)  ) 


NAOD  = NADD  ♦ 1 : 

IF  I NADD  > 500  ) THEN  GO  TO  BUMADD  i 
NREC  = TOTREC  ♦ NADD  *, 

DLINE  « ’THE  FOLLOWING  RECORD  HAS  BEEN  ADDED...’ 

DISPLAY  ( ’ ' ) J DISPLAY  ( DLINE  ) J 

PUT  STRING  (DLINE)  EDIT  ( (10)'  •»  ’RECNO/STOCK/FILE  NUM 


NREC, 


',  YEVEH,  •/•  ) ( A,  A,  P’ZZ,ZZ9’,  A,  A(13),  A > 


STEP28 : 


LOOKU  «=  STEP28  ; 

GO  TO  FINDVEH  ; 

IF  ( VEHREC  > 0 ) THEN  GO  TO  STEP29  ; 

SJBSTR  ( DLINE,  56  ) * '(NO  MATCHING  DATA)’ 
GO  TO  ADDOJT  ; 


STEP29 : IF  ( VEHREC  > MAXR  ) THEN  GO  TO  ER*  ; 

READ  FILE  (VEHS)  INTO  (AVEHICLES)  KEY  (VEHREC)  i 
SUBSTR  I DLINE,  55  ) * DEVDESIG  ; 


CARD  * • • ; 
SUBSTR  ( CARO,  21 
NDSTAT  = 1 ; 

NLINE  = 2 ; 


) 


DEVNAME 


GO  TO  AODOUT  ; 

/************************«***«********/ 

/*  FINALLY,  THE  TASK  ADDITION  KEYBOARD  ENTRY  IS  PURSUED  */ 


ADD JOBTASK : 


ADDJ ; 


IF  ( 


ROUTEX 
NLINE 
MAXO  » 
MAXR  * 


MAXADD  > 0 ) THEN  GO  TO  BUMADD 

* PROMPTA  ; 

REF$  (12)  J 
REFS  (ID  *. 


ROUTE  « STEP30  ; 

GO  TO  FINDASLASH  ; 

STEP30:  IF  ( Jl  * J2  * J3  * J*  ) * 0 THEN  GO  TO  BUMENTRY 
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SOURCE  CARO  LISTING  FOR 

P5B : /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 


NTYP  = 3 ; NSTAT  * 2 J HOST  AT  * 2 J 
NRATE  * SUBSTR  ( CARD,  IJl  + 1),  IJ2  - Jl  - 11  I S 
NRANK  » SUBSTR  ( CARO.  (J2  ♦ l).  (J3  - J2  - l>  ) 5 
NJTASK  * SUBSTR  ( CARO,  (J3  ♦ 1),  (J*  - J3  - 1 1 ! S 
YETASK  « NIO  ; 

NADD  » NADD  ♦ 1 ; 

IF  I NADO  > 500  ) THEN  GO  TO  BUMAOD  ; 

NREC  * TOTREC  ♦ NADD  ; 

OLINE  = 'THE  FOLLOWING  RECORD  HAS  BEEN  AOOED. • • ' J 
DISPLAY  ( • ' > S DISPLAY  ( DLINE  » J 

PUT  STRING  (OLINE)  EDIT 

( (10)'  'RECNO/RATE/RANK/JOB  : NREC, 

V,  NRATE,  •/*,  NRANK,  V,  NJTASK  ) 

( A,  A,  P ' 22  , ZZ9 * , 6(A)  ) ; 

LOOKU  = STEP31  ; 

G3  TO  FINDTASK  J 

STEP31 : IF  ( TASKREC  > 0 ) THEN  GO  TO  STEP32  ; 

SJBSTR  ( DLINE,  56  ) - ' (NO  MATCHING  DATA)'  ; 

GO  TO  ADDOUT  ; 

STEP32 : IF  ( TASKREC  > MAXR  ) THEN  GO  TO  ER5  ; 

READ  FILE  (TASKS)  INTO  (ATASKS)  KEY  (TASKREC)  ; 

CARD  « * • ; 

SUBSTR  ( CARD,  20  ) » TASKTTL  ; 

NOSTAT  - l ; 

NLINE  « 2 S 

GD  TO  ADDOUT  ; 

/*************************************/ 

/*  THIS  SUBROUTINE  SEARCHES  OUT  THE  IMBEDED  SLASHES  IN  AN 
ADDITION-TYPE  KEYBOARD  ENTRY. 

POSSIBLE  FORMATS  : (1)  ADDC  / CIN  / COP  / 

(2)  ADOV  / VEH  NUM  / 

(3)  ADDJ  / RATE  / RANK  / JOBTASK  / 
ON  EXIT  : Jl,  J2,  J3,  J*  SET  AS  REQD  TO  POINT  TO 

THE  RELATEO  •/• 

ERROR  RETURN  TO  BUMENTRY 

RETURN  VECTOR  IS  ROUTE  */ 

FINDASLASH: 

Jl,  J2,  J3,  J*  - 0 ; 

DLINE  a CARD  ; 

Jl  * INDEX  (CARD,  */•  ) ; 

IF  ( Jl  « 0 ) I ( Jl  > 20  ) THEN  GO  TO  BUMENTRY  ; 

CTAB  (Jl)  a • • ; 

J2  * INDEX  ( CARD,  •/ • ) : 

IF  ( J2  <=  Jl  ) T ( J2  = 0 ) THEN  GO  TO  BUMENTRY  5 

CTAB  ( J 2 ) * ' • J 

J3  * INDEX  ( CARD,  •/•  ) : 

IF  ( J3  « 0 ) THEN  GO  TO  SLRET  ; 

IF  ( J3  <■  J2  ) THEN  GO  TO  BUMENTRY  ; 

CTAB  ( J 3 ) * ' ' 5 

J*  * INDEX  ( CARD,  •/'  ) ; 

IF  ( J*  = 0 ) THEN  GO  TO  SLRET  ; 

IF  ( J*  <=  J3  ) THEN  GO  TO  BUMENTRY  J 
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SOURCE  CARD  LISTING  FOR  ~ , 

P5B:  /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 

SLRET:  CARD  * DLINE  ; 

GO  TO  ROUTE  ; 

/*«*** *********************** *********/ 

/*  HERE,  IS  SUBROUTINE  TO  DETERMINE  LEGALITY  OF  AN  INPUT 
RECORO  NUMBER. 

ON  ENTRY  - NUMBER  TO  BE  VERIFIED  IS  IN  K 
ON  EXIT  - NREC  = SS  TO  RESULTS  STRUCTURE 
NRECA  = SS  TO  ADDS  STRUCTURE 
ERROR  EXIT  TO  BUMENTRY 
RETURN  VECTOR  IS  ROUTE  */ 


FINDREC: 

IF  I 


K <*  (TOTREC  «■  NADD)  ) THEN  GO  TO  FIN0R1 


BUMNUMBER:  DLINE  * 15)'  'll'**  RANGE  ERROR  IN  RECORD  NUMBER* 

DISPLAY  ( • • I ; DISPLAY  I DLINE  ) ; 

GO  TO  PROMPTA  ; 


FINDRl:  IF  ( 


K <=  TOTREC  ) 

THEN  DO  ; NREC  « K ; NRECA 
ELSE  DO  ; NREC  * 0 ; NRECA 


0 ; END  ; 
K - TOTREC 


END 


GO  TO  ROUTE  ; 

/ft***********************************/ 


/*  THIS  IS  THE  SUBROUTINE  WHICH  ISOLATES  THE  NUMERIC 

SINGLE/PAIRS  FROM  THE  DELETE  £ PRINT  KEYBOARD  ENTRIES 
ON  ENTRY  - NO  REQUIREMENTS 
ON  EXIT  - RETURN  VECTOR  IS  ROUTE 

- FIRST  NUMBER  BIN  IN  Nl,  CHAR  IN  NlC 

- 2ND  NUM  (IF  ANY)  BIN  IN  N2,  CHAR  IN  N2C 
2ND,  IF  ABSENT.  N2  » 0 

- NOS  - l TO  2,  INDICATES  SING/PAIR  INPUTS 

ERROR  RETURN  TO  PROMPTA  (BAD  NUM)  OR  BUMENTRY  */ 


FINDNOS: 


Nl,  N2  * 0 S 
Nit,  N2C  - ' ' ; 

NCONV  ■ 2 ; 

nos  * l ; 

Ll  * INDEX  I CARD,  • • ) 
IF 


( Ll 


0 ) | ( Ll  > 20  ) 


I ( SUBSTR (CARD,  Ll) 
THEN  GO  TO  BUMENTRY 


LFN1 


00  L = Ll  TO  80 
L2  * L ; 

IF  ( CTABIL)  -•« 
END  LFN1  5 


/*  FIND  FIRST  BLANK  ♦/ 
• ) 

/*  FIND  FIRST  OIGIT  */ 
THEN  GO  TO  FINDN2  ; 


FINDN2: 


DO 

Ll 

IF 


I CTABIL)  * 


GO  TO  BUMENTRY  ; 

L = L2  TO  80  S 
* L ; 

( CTABIL)  = ' ' ) I 

THEN  GO  TO  F INDN3 
END  FINDN2  ; 

GO  TO  BUMENTRY  ; 

FINDN3:  NIC  = SUBSTR  I CARD,  L2,  IL1-L2)  ) 
GET  STRING  INIC)  EDIT  INI)  I FI5)  ) 
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sOURCE  CARO  USTlNGjFOR  SE/UCH  RE$ULTS  EDITOR  - WED/09/MAR/77  */ 


LFN2: 


IF  ( LI  > 79  ) THEN  GO  TO  BUM6NTRY 

00  L * LI  TO  79  ; 

L2  = L ; 

IF  ( CTAB(L)  -*»  ' ' > L 
THEN  GO  TO  FINON*  ! 

END  LFN2  ; 


GO  TO  ROUTE 


FINON*: 
LFN3 : 


IF  ( L2  > 


00 

LI 

IF 


75  ) 

= L2  TO  L3  ; 


THEN  L 3 
ELSE  L3 


80  ; 
L2  ♦ 


FIN0N5:  N2C 


LFNOUT: 


( CTABIL)  * • • ) THEN  GO  TO  FIN0N5  J 
L2 » ILI-L2)  ) { 


END  LFN3 

‘ SUBSTR  ( CARO.  _ 

GET  STRING  ( N2C ) EDIT  (N2)  I F<5>  ) 

IF  I N2  < N1  I THEN  GO  TO  BUHENTRY  J 

NOS  = 2 *, 

GO  TO  ROUTE  ; 

/I************************************/ 

/♦  DIRECTORY  LOOKUP  SUBROUTINES  IN  THIS  SECTION  */ 

OECLARE  ( FLCIN,  FLCOP,  FLVEH,  FLTASK  ) BIT  ID  STATIC* 
YECIN  CHAR  (8)  STATIC, 

YECOP  CHAR  l*>  STATIC, 

( YETASK,  YEVEH  ) CHAR  1131  STATIC, 

( CINREC,  COPREC,  VEHREC,  TASKREC,  VEHMAX,  TASKMAX, 
CINMAX,  COPMAX  ) FIXED  BIN  STATIC, 

LOOKU  LABEL  I 

/*  CIN  OIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  CIN  IN  YECIN 
EXIT  : CINREC  = 0 (NO  FINO)  OR  REG  NUMBER 


RETURN  VECTOR  IS  LOOKU 
F1NDCIN:  IF  ( FLCIN  ) THEN  GO  TO  CIN2 


♦ / 


CINLOAD: 

CIN2: 

ECIN2: 
NFC  IN: 


CINMAX  = REFS  (2)  ; 

FLCIN  * ' l * B J 

03  J « 1 TO  * ; 

PLCIN  » AOOR  ( COVCIN  (J)  ) i 
RE AO  FILE  I OC IN)  INTO  (LOAOCIN) 
END  CINLOAD  i 


00  I * 1 TO  CINMAX  : 

IF  I YECIN  > CHC1NII)  ) THEN  GO  TO  ECIN2  J 
IF  ( YECIN  •»»  CHCINII)  ) THEN  GO  TO  NFC  IN 
CINREC  * CINPTR  II)  ; 

GO  TO  LOOKU  ; 

END  CIN2  ? 


CINREC  = 0 J 

G3  TO  LOOKU  J 

/*  COP  OIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  CDP  IN  YECOP 

EXIT  : CDPREC  * 0 (NO  FIND),  OR  REC  NUMBER 

RETURN  VECTOR  IS  LOOKU  */ 
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SOURCE 

CARO  LISTING  FOR 

- WE0/09/MAR/77 

P5B: 

/*  INTERACTIVE  SEARCH  RESULTS  EDITOR  ■ 

828 

829 

FINDCDP 

: IF  ( FLCDP  ) THEN  GO  TO  CDP2  ; 

830 

831 

CDPMAX  * REFS  (3)  ; 

832 

FLCDP  * ' l ' B ; 

833 

834 

CDPLOAD 

: DO  J = 1 TO  4 i 

835 

PLCDP  = ADDR  1 COVCDP  <J)  I 5 
READ  FILE  (DCDP)  INTO  (LOADCDP)  ; 

836 

837 

END  CDPLOAD  ; 

838 

839 

C0P2: 

DO  I * l TO  CDPMAX  ; 

840 

IF  I YECDP  > CHCDP(I)  ) THEN  GO  TO 

ECDP2  J 

841 

IF  i YECDP  «*=  CHCOP(I)  ) THEN  GO  TO  NFCDP  ; 

842 

CDPREC  = CDPPTR ( I ) J 

843 

GO  TO  LOOKU  ; 

844 

EC0P2 : 

END  CDP2  ; 

845 

846 

NFCDP: 

CDPREC  » 0 ; 

847 

GO  TO  LOOKU  ; 

848 

849 

/*  VEHICLE  ID  LOOKUP  SUBROUTINE 

850 

ENTRY  : DESIRED  VEH  ID  IN  YEVEH 

851 

EXIT  : VEHREC  = 0 I NO  FIND),  OR  REC  NUMBER 

852 

RETURN  VECTOR  IS  LOOKU  */ 

853 

854 

FINOVEH 

: IF  ( FLVEH  ) THEN  GO  TO  VEH2  ; 

855 

856 

VEHMAX  * REFS  (8)  J 

857 

FLVEH  * ' 1 * B J 

858 

859 

VEHLOAD 

: DO  J * 1 TO  4 ; 

860 

PL VEH  * ADDR  ( COVVEH  (J)  ) J 

861 

READ  FILE  ( DVEH)  INTO  (LOADVEH)  ; 

862 

END  VEHLOAD  ; 

863 

864 

VEH2: 

00  I = 1 TO  VEHMAX  ; 

865 

IF  ( YEVEH  > CHVEH(I)  ) THEN  GO  TO 

EVEH2  J 

866 

IF  ( YEVEH  CM VEH t I ) ) THEN  GO  TO  NFVEH  ; 

867 

VEHREC  = VEHPTR  (I)  ; 

868 

GO  TO  LOOKU  S 

869 

870 

871 

EVEH2 : 

END  VEH2  J 

NFVEH: 

VEHREC  = 0 ; 

872 

GO  TO  LOOKU  J 

873 

874 

/*  TASK  ID  DIRECTORY  LOOKUP  SUBROUTINE 

875 

ENTRY  : DESIRED  TASK  ID  (13-CHAR) 

IN  YETASK 

876 

EXIT  : TASKREC  » 0 (NO  FIND)  OR  REC  NUMBER 

877 

RETURN  VECTOR  IS  LOOKU  */ 

878 

879 

FINOTASKi  IF  ( FLTASK  ) THEN  GO  TO  TASK 2 J 

880 

881 

TASKMAX  = REFS  (12)  • 

882 

FLTASK  a • 1 • B 5 

883 

884 

TASKLOAD:  DD  J = 1 TO  12  5 

885 

PL T ASK  » ADDR  ( COVTASK  (J)  ) J 
READ  FILE  (DTASK ) INTO  (LOADTASK) 

886 

« 

887 

END  TASKLOAD  ; 

888 

889 

TASK2: 

DO  I * i TO  TASKMAX  ; 

890 

IF  ( YETASK  > CHTASK(I)  ) THEN  GO 

TO  ETASK2  ; 

891 

IF  ( YETASK  CHTASK(I)  ) THEN  GO 

TASKREC  » TASKPTR  ( I ) , 

TO  NFTASK  ; 

892 

893 

GO  TO  LOOKU  S 

894 

ETASK2: 

END  TASK2  * 

895 

896 

NFTASK: 

TASKREC  = 0 J 
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897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

9 L 2 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

92  7 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 
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SOURCE  CARD  LISTING  FOR  „ , 

P5B : /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 

GO  TO  LOOKU  ; 

/I************************************/ 

/+  TERMINAL,  IE,  CATASTROPHIC  BADNESSES  REPORTED  HERE  */ 


ERROR  NUMBER  •, 


BUSTED:  PUT  STRING  (CARD)  EOI T ( (10)' 

NER,  ' HAS  OCCURED  **»  > 

( A , A , F ( 2 ) , A ) ; 

DISPLAY  ( • • ) ; DISPLAY  ( CARD  ) ; 

DISPLAY  ( • • » 5 DISPLAY  ( DLINE  > ; 

/I************************************/ 

/*  HERE,  REE  RESULTS  PROJECT  FILE  IS  COMPOSED  FROM  THE  INPUT 
RESULTS  ARRAY  AND  ANY  AODS  ARRAY  ENTRIES  */ 

QUIT:  OPEN  FILE  (RESU)  RECORD  OUTPUT, 

FILE  (REE)  RECORD  OUTPUT  ; 

RELOAOR:  DO  J * 1 TO  totrec  ; 

S 1 6 = RESREC  (J)  ; 

WRITE  FILE  (RESU)  FROM  IS16I  i 

IF  ( RDSTAT(J)  « 3 ) THEN  GO  TO  ELOADR  ; 

WRITE  FILE  (REE)  FROM  (S16)  J 
NEE  = NEE  ♦ 1 ; 

ELOADR:  END  RELOADR  i 

IF  ( NADD  <»  0 > THEN  GO  TO  EOJ  ; 

RELOADA:  DO  J = 1 TO  NADD  ; 

IF  ( MSTAT(J)  * '3'  ) I ( MTYP(J)  * 'O'  » 

THEN  GO  TO  ERLOAOA  J 

NEW  - ADDS  (J)  ; 

WRITE  FILE  (RESU)  FROM  (NEW)  ; 

WRITE  FILE  (REE)  FROM  (NEW)  ; 

NEE  ■ NEE  ♦ 1 ! 

ERLOADA:  END  RELOADA  ; 

GO  TO  EOJ  ; 

/****« ***************** ****** *********/ 

/*  HERE  WE  ARE  AT  THE  LAST  ROUNDUP  */ 


EOJ : 


OLINE  = •**  ROE  SEAR: 
DISPLAY  ( • • ) ; 


;h  RESULTS  EDITOR  IS  TERMINATING*  ; 
DISPLAY  ( DLINE  ) ; 

TOTAL  RECORDS  ADDED  : *,  NADD  ) 


PUT  STRING  (DLINE)  EDIT  ( • 

( A,  F ( 3 ) > 

DISPLAY  ( • • ) ; DISPLAY  < DLINE  ) ; 

PUT  STRING  (DLINE)  EDIT  ( 

• TOTAL  RECORDS  IN  PROJECT  EXTRACT  FILE 
NEE  ) ( A,  P ' Z ,2 29 ' > ; 

DISPLAY  ( • ' ) J DISPLAY  ( DLINE  I ; 

CLOSE  FILE  (MREF),  FILE  (ID). 

FILE  (COURSE),  FILE  (DCIN),  FILE  (DCDP), 
FILE  (VEHS),  FILE  ( DVEH ) , 

FILE  (TASKS),  FILE  (DTASK ) , 

FILE  (RESU),  FILE  (REE)  ; 


966 

967 
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SOURCE  CARO  LISTING  FOR  • 

P5B:  /*  INTERACTIVE  SEARCH  RESULTS  EDITOR  - WED/09/MAR/77  */ 


END  P5B 
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SOURCE  CARO  LISTING  FOR 

P5C:  /*  PRINT  OF  ROE  SEARCH  RESULTS  FOR  EXTRACT  - FRI/ ll/MAR/77  */ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1* 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


P5C: 


/* 


♦ / 


/*  PRINT  OF  ROE  SEARCH  RESULTS  FOR  EXTRACT  - FR I / ll/MAR/77  */ 
PROC  (INPARM)  OPTIONS  (MAIN)  S 

REVISIONS  : 

FRI / l 1/ MAR/77  - VERYFIRST  IMPLEMENTATION. 

- NOTES  THIS  IS  A PERMUTATION  OF  PSA. 

THU/ 24/ MAR/ 77  - MODS  PRIOR  TO  TRANSMIT  TO  NCSS. 


DECLARE  DLINE8 

DLINECST 

DLINE28 

DLINE33 

DLINE36 

DLINE4D 

CARD7 


CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 


18) 

( 36) 
(4) 

( 36) 
( 36) 
(40) 
( 70) 


DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 


DLINE 

DLINE 

DLINE 

DLINE 

DLINE 

OLINE 

CARD 


POS 

POS 

POS 

POS 

POS 

POS 

POS 


(8). 
(34), 
(28), 
(33) , 
(36) , 
(40), 
(8), 


NODIR  CHAR  (35)  STATIC  INIT 

( •**  DIRECTORY  SEARCH  WAS  NEGATIVE  **•  ), 


DECLARE 


NOAB 
1 


TTLCARD 
2 PNAME 
2 PTTL 


INPARM 
1 POVER 
2 PARM2 


CHAR  (36)  STATIC  INIT 
( '(NO  ABBREVIATED  FILE  OATA  AVAILABLE)' 


STATIC, 


CHAR 

CHAR 


/*  PROJECT  TITLE  DATA  BASE  */ 
/*  CKF.ID  */ 


CHAR  (100)  VARYING, 
BASED  (PP), 

CHAR  (4), 


( DISP,  PTR , DPAGE,  I,  J,  K,  L,  LT, 
NN  • NPAGE,  NR,  NTYPE » NV.  NER, 
NOF » NJ  ) FIXED  BIN  STATIC, 


NC.  NFIRST , 
NLINE, 


DTTL 

< 

ODPGE 

MAXLTB 


CHAR  (23)  STATIC  INIT 
PAGE  NUMBER  : XXXX'  ), 

PICTURE  ' ZZZ9*  DEF  OTTL  POS  (20), 

FIXED  BIN  STATIC  INIT  ( 60  ) ; 


DECLARE  ( COURSE,  VEHS,  TASKS 

) FILE  RECORD  DIRECT  KEYED  ENV  ( REGIONAL! 11  ) ; 


OECLARE 


DECLARE  1 


DLINE  ) CHAR  (80)  STATIC, 

CHAR  ( 10)  DEF  CARD, 
CHAR  (70)  DEF  CARD  POS 

MAST  STATIC. 

2 REFS  (40)  FIXED  &IN, 


( CARD, 
CUO 
C 1 1 80 


(11) 


1 RESULT 
2 RTYP 
2 RSTAT 
2 RDSTAT 
2 RES  ID 

1 RESC 

( 2 FI,  2 
2 RESCIN 
2 RESCDP 

1 REST 

( 2 FI,  2 
2 RATE 
2 RANK 
2 J08TASK 


BASED  (PR), 

PICTURE  '9', 

PICTURE  *9', 

PICTURE  '9', 

CHAR  ( 13), 

BASED  (PR). 

F2,  2 F3  ) Char  (l), 
CHAR  (8), 

CHAR  (4), 

BASED  (PR). 

F2 , 2 F3  ) Char  (l), 
CHAR  (5), 

CHAR  (2), 

CHAR  (6), 
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69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 

no 

in 

112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 


PAGE  NUMBER  : 2 

SOURCE  CARD  ^INT^QF^OE  SEARCH  RESULTS  FOR  EXTRACT  - FRI/il/MAR/77  */ 


S 16 

VI  (3) 

DECLARE  Tl 
' RECNO  CIN 


RECNO 


T1U 

T2 

STOCK  NUMBER 
T2U 


CHAR  ( 16)  STATIC, 

LABEL  ; 

CHAR  (32)  STATIC  INIT  ( 
COP  COURSE*  ), 

CHAR  (37)  STATIC  INIT  ( 

- • ), 


CHAR  (46)  STATIC  INIT  ( 
FILE  NJM  TRAINING  DEVICE* 

CHAR  (46)  STATIC  INIT  ( 


T3  CHAR  (29)  STATIC  INIT  ( 

'RECNO  RATE  RANK  JOB  TASK*  ), 

T3U  CHAR  (29)  STATIC  INIT  ( 

i . ) • 


). 

>, 


DECLARE  WINDUPS  (6)  CHAR  (44)  STATIC  INIT  ( 

TOTAL  NUMBER  COURSE  RECORDS  PROCESSED 
TOTAL  NUMBER  VEHICLE  RECORDS  PROCESSED 
TOTAL  NUMBER  JOBTASK  RECORDS  PROCESSED 
TOTAL  NUMBER  ROE  RESULT  RECORDS  READ 
RECORDS  WITHOUT  MATCHING  ABBREVIATED  DATA 
TOTAL  NUMBER  DIRECTORY  SEARCH  FAILURES 


WIND  (6) 


FIXED  BIN  STATIC 


/*************************************/ 


DECLARE  1 ACRS 

2 SET  1 


STATIC, 


2 

2 


2 

2 

2 

2 

2 

2 

2 


i if 

3 CDP 
3 CIN 
3 CST 
3 NOBC 
3 NEC 

?ET2, 

3 RMS 
3 TYCRS 
3 SVC 
3 MI 
STCD 
STOTE 
SET  3 , 

3 TRAPS 
3 T PC 
ATT  R 
STBK 
CLEN 
THRS 
LHRS 
CAD  8 
CC80 


(A), 

(8), 

( 16), 
(4), 
(4), 
(2), 

(3), 

(2), 

(1), 

C 1). 

(1), 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 

CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
PICTURE  ‘(5)9*, 

CHAR  ( 1 ), 

CHAR  (5), 
PICTURE  *99V9* , 


/*  ABBR.  COURSE  FILE*/ 
/*  CKF.ACOURSES  */ 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
CHAR  ( 1) 


*99V9* , 
•999* , 
•999* , 
•999* , 

* ( 5 ) 9V99 ' , 

; 


DECLARE  1 


CINDER  (304) 
2 CHCIN 
2 CINPTR 


LOADCIN 
COVCIN  (4) 


STATIC. 
CHAR  (8), 
FIXED  BIN, 

CHAR  (760) 
CHAR  (760) 


/*  CRS  CIN  DIRECTORY  */ 
/*  CKF.CRS.DIRCIN  */ 


BASED 

BASED 


( PLCIN ) , 
( PTC  IN ) 


DECLARE  1 CDPOIR  (1200)  STATIC, 

2 CHCDP  CHAR  (4), 


/*  CRS  CDP  DIRECTORY  */ 
/*  CKF.CRS.DIRCDP  */ 
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SOURCE  CARD  LISTING  FOR  _ , . 

P5C:  /*  PRINT  OF  ROE  SEARCH  RESULTS  FOR  EXTRACT  - FRI/ll/MAR. 


I >'* 

2 CDPPTR 

FIXED  BIN, 

LOADCDP 

CHAR  ( 1200)  BASED 

( PLCDP ) , 

COVCDP  (6) 

CHAR  ( 1200)  BASED 

(PTCDP)  ; 

/************** *******«***************/ 

• # > 
146 

DECLARE  1 AVEHICLES 

STATIC,  /* 

ABBR.  VEH  FILE  */ 

1 * 6 

2 STOCKN 

CHAR  ( 13),  /* 

CKF.AVEHS  */ 

i<-7 

2 DEVDESIG 

CHAR  (9). 

ICO 

2 DEVNAME 

CHAR  (47), 

149 

2 DEVCOST 

PICTURE  MB) 9V99 • 

, 

160 

: b? 

2 CC80 

CHAR  (1), 

VCOST 

FIXED  DEC  (10,2) 

STATIC, 

1 r'3 

» • . A 

VOVER 

CHAR  (80)  BASEO  (PV80)  ; 

* > *♦ 

DECLARE  l VEHDIR  (200)  STATIC,  /* 

VEHICLE  DIRECTORY  *' 

i bb 

2 CHVEH 

CHAR  (13),  /* 

CKF.VEH.OIR  ♦/ 

1 9 l 

2 VEHPTR 

FIXED  BIN, 

r 

1 

COVVEH  (A) 

CHAR  (750)  BASED 

(PTVEH) , 

’ L< 
U>L 
IbZ 

LOADVEH 

CHAR  (750)  BASED 

(PLVEH)  ; 

/**************  ***********************/ 

lb' 

164 

DECLARE  1 ATASKS 

STATIC,  /* 

ABBR.  TASK  FILE  */ 

lb5 

2 RATING 

CHAR  (7),  /* 

CKF. ATASKS  */ 

1 66 

2 JOBTASK 

CHAR  (6). 

ls7 

2 TASKTTL 

CHAR  (50), 

* 6? 

2 FILL 

CHAR  (6), 

i r 

2 BILCOST 

PICTURE  '(81 9V99 ' 

, 

i r , 

t 7 I 

2 CCBO 

CHAR  ( 1 ) ; 

I / 1 
1 *2 

DECl ARE  1 TASKDIR  (1200)  STATIC,  /* 

JOBTASK  FILE  DIRECTORY 

173 

2 CHTASK 

CHAR  < 13) , /* 

CKF. TASKS. DIR  */ 

1 'c 
175 

. t 6 

2 TASKPTR 

FIXED  BIN, 

COVTASX  (12) 

CHAR  ( 1500)  BASED 

(PTTASK) , 

; 77 

LOADTASK 

CHAR  ( 1500)  BASED 

( PLTASK ) ; 

178 

179 

/ft*************************-  -'♦*****  ' 

180 

181 

START:  NTYPE  , NC , NJ 

, NV,  NR,  NN,  NOF, 

182 

NPAGE,  DPAGE • LT , NFIRST, 

183 

J,  K = 0 

* 

184 

185 

FLCIN,  FLCDP, 

FLVEH,  FLTASK  » *0 

m 

CD 

«• 

186 

187 

PP  = ADDR  ( INPARM)  ; 

188 

PR  = ADDR  ( SI 6 ) ; 

1 89 

PTC  I N * ADDR 

(CINDER)  ; 

19G 

PTCDP  = ADDR 

(CDPDIR)  ; 

191 

PV80  = ADDR  (AVEHICLES)  ; 

192 

PTVEH  * ADDR 

(VEHOIR)  ; 

193 

PTTASK  * ADDR 

(TASKDIR)  ; 

J 04 

1^5  COMMENCE: 

1 »6  OPEN  FILE  (MPEF)  RECORD  INPUT, 

197  FILE  (ID)  RECORD  INPUT, 

198  FILE  (COURSE)  INPUT, 

179  PILE  (DCIN)  RECORD  INPUT, 

200  FILE  ( DCDP ) RECORD  INPUT, 

201  FILE  (VEHS)  INPUT, 

202  FILE  ( DVEH ) RECORD  INPUT, 

203  FILE  (TASKS)  INPUT, 

204  FILE  (DTASK)  RECORD  INPUT, 

205  FILE  (REE)  RECORD  INPUT  ; 

206 
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■G7 

'.‘.•3 

210 
211 
~)  2 
•;  \ 
.:i  4 
115 
216 
217 
21“ 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 
?ro 

230 

231 

232 

233 

234 
23 

236 

237 
•*33 
c39 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 


SOURCE  CARD  LISTING  FOR  _ . 

P5C:  /*  PRINT  OF  ROE  SEARCH  RESULTS  FOR  EXTRACT  - FR 1 / 1 l/MAR/77 

ON  ENDFILE  (REE)  GO  TO  EOJ  J 

READ  FILE  ( MREF ) INTO  (MAST)  ; 

/**«********«*************************/ 

/*  HERE*  DEVICE  ASSIGNMENTS  ARE  VERIFIED  */ 

FIRST:  DISP,  PTR  = l 


DISP,  PTR  = 

PARM2  = 'BOTH' 


IF 

IF 


PARM2  * 'TERM* 
THEN  PTR  * 2 J 
ELSE  DISP  « 2 S 


THEN  GO  TO  STEPA 


IF  ( 


PARM2  * 'NONE'  ) 
THEN  PTR,  DISP  * 


/*  HERE,  PRINTER  DATASET  IS  INITIALIZED  */ 


STEPA*. 


IF  ( PTR  “ 2 ) THEN  GO  TO  STEPB  i 
OPEN  FILE  (SYSPRINT) 

LINESIZE  (120)  PAGESIZE  (60) 

ON  ENOPAGE  (SYSPRINT) 

BEGIN  ; 

NP AGE  * NPAGE  ♦ l • 

IF  I NFIRST  = l ) THEN 

DO  ; PUT  PAGE  LINE  (5) 
PUT  SKIP  (3)  ; 

NFIRST  * 1 ; 


GO  TO  TSTTTL 


END  ; 


TSTTTL: 


IF  ( NTYPE  = 3 ) THEN  GO  TO  TASKTTL 
IF  ( NTYPE  = 2 ) THEN  GO  TO  VEHTTL  J 


CRSTTL : PUT  EDIT  ( 

•***  EXTRACT  DATA  IS  REQUESTED  FOR  THE  FOLLOWING  COURSES  ***' , 

•PAGE  NUMBER  : •,  NPAGE,  •RECORD', 

• NUM  ORIGIN  CIN  COP 

« ........  ____  .. 


COURSE  TITLE', 


) 


( X ( 9 ) , 


SK I P ( 2 ) , X(  9)  , A,  F ( 3 ) , 


...  A,  si  

SKIPI2),  X ( 4 ) , A,  3 ( SKIP! 1),  A ) ) ; 

GO  TO  SKP  ; 

VEHTTL:  PUT  EDIT  < 

•***  EXTRACT  DATA  IS  REQUESTED  FOR  THE  FOLLOWING  VEHICLES  ***• , 

•PAGE  NUMBER  : ',  NPAGE,  'RECORD*.  'DEVICE*. 

• NUM  ORIGIN  STOCK  NUMBER  DESIGNATOR1, 

, • , 

• • ) 


( X ( 9 ) , A,  SKI P( 2 ) , X ( 9 ) , A.  F(3), 
SKIP! 2 ) , X ( 4 ) , A,  COL( 35) , A*  3 ( SKIP(l),  A ) ) 

GO  TO  SKP  ; 


TASKTTL:  PJT  EOIT  ( 

•***  EXTRACT  DATA  IS  REQUESTED  FOR  THE  FOLLOWING  JOBS  / 


•PAGE  NUMBER 


NUM 


ORIGIN 


NPAGE,  'RECORD', 

RATING  RANK  JOBTASK', 

t . 


TASKS  ***', 


( X (9) , A.  SKIP! 2 ) * X ( 9 ) , A,  F(3>, 
SK  IP ( 2 ) , X ( 4 ) , A,  3 ( SKIP(I).  A ) ) ; 


SKP: 


PUT  SKIP  (l) 
END  ; 
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2:\ 
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2-  3 

2 * 
•»  c 

C v 
2 = 6 

? 88 
239 
2"C 

291 

292 
29- 
29* 

295 

296 

297 

298 

299 

300 

?r. 

307 

303 

30<* 

305 

306 

307 

308 

309 

310 

311 

312 

313 
31* 

315 

316 

317 

318 

319 

320 

321 

322 

323 
32* 

325 

326 

327 

328 
^29 

330 

331 

332 

333 
33* 

335 

336 

337 

338 

339 
3*0 
3*1 
3*2 
3*3 
3** 


‘AGE  NUMBER  : 5 

SOURCE  CARO  LISTING  FOR  _ ,,  „„ 

T 5C : /*  PRINT  UF  ROE  SEARCH  RESULTS  FOR  EXTRACT  - FR I / 1 l/MAR/77 

/*  HERE,  1NITILI ZATION  OF  TERMINAL  DATASET  PROCEEOS  */ 

.'SP3:  IF  ( OISP  = 2 I THEN  GO  TO  STEPC  ; 


ON  CONDITION  ( NEWDP ) 
BEGIN 
IF 


LPA: 


LPB : 


IF 

IF 


< < 61  ) THEN  LT  * 61  ; 

( LT  >=  66  ) THEN  GO  TO  LPB  5 

61  ; 


( LT  < 61  ) THEN  LT 
00  L * LT  TO  66  ; 
DISPLAY  ( • ' ) J 

END  LPA  ; 


DISPLAY  ( • 


) 


DP AGE  = DPAGE  ♦ 1 ; 

DDPGE  = DPAGE  ; 

DISPLAY  ( DTTL  ) i 
DISPLAY  ( • • 1 ; 

LT  * 3 ; 

END  5 

/*  NOW,  MASTER  TITLE  STRIP  IS  OUTPUT  */ 

STEPC i READ  FILE  (ID)  INTO  (CARD)  ; 

DLINE  = (10)'  • II  '**  EXTRACT  SEARCH  RESULTS  FOR  PROJECT  - • 
II  CllO  II  ' **•  ; 

CARD  * ( 12) ' 1 II  C1180  *. 


DISPLAY  ( • • ) 

DISPLAY  I CARD  ) J 


DISPLAY  ( DLINE  ) 
• ) 


DISPLAY  ( 

/*  01  SPLAY  OUTPUT  GOES  HERE  */ 

IF  ( PTR  = 2 ) THEN  30  TO  RDl  i 

PUT  EDIT  ( DLINE,  CARD  ) ( SKIPI3).  A,  SKIP(l),  A > 
GO  TO  RDl  ; 

/A************************************/ 

/*  HEREIN,  IS  START  OF  MAINLINE  LOOP  */ 

RDl:  READ  FILE  (REE)  INTO  (S16)  ; 

NR  = NR  ♦ 1 ; 

IF  ( RTYP  = NTYPE  ) THEN  GO  TO  STEP1  ; 

NTYPE  = RTYP  J 

IF  ( PTR  = 1 ) THEN  SIGNAL  ENDPAGE  (SYSPRINT) 
IF  ( DISP  * 1 ) THEN  SIGNAL  CONDITION  (NEWDP) 

STEP1 : GO  TO  VI  (NTYPE)  ; 

/*  HERE,  A COURSE  RECORD  IS  PROCESSED  */ 


Vl(  1) 


NC  = NC  ♦ i ; 

NLINE  = l ; 

DLINE  « • • ; 

PUT  STRING  (DLINE)  EDIT  ( 


ERl: 


( P,Z,ZZ9* , X ( 12 ) , 

) I ( RSTAT 


NR,  RESCIN,  RESCDP  ) 
A,  X ( 2 ) , A ) ; 


IF  ( RSTAT  = 1 
NER  * 1 ; 


» 2 ) THEN  GO  TO  STP1 
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•>.<>7 

34P 

349 

350 

351 

352 
3C  3 
3^4 

355 

itt 

357 

353 

350 
3b0 

351 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 
431 
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403 

404 
435 

406 

407 

408 

409 

410 

411 

412 

413 


PAGE  NUMBER 
SOURCE  CARO  LISTING  FOR 


P5C: 


/*  PRINT  OF  ROE  SEARCH  RESULTS  FOR  EXTRACT  - FR 1/ 1 1/M AR/ 77  */ 

PJT  STRING  (DLINE)  OATA  I NR,  S16  ) ; 

GO  TO  BUSTED  ; 


S TP  1 ; 


IF  ( RSTAT  = l ) THEN  DLINE8 

ELSE  0LINE8 


IF  ( RE  SCOP  = • • I THEN  DLINE28 

IF  I ROSTAT  * 2 ) I < RESCOP  = • 
NOCOAT  A:  DO  ; 

NN  s NN  ♦ 1 ; 

DLINECST  * NOAB  I 

GO  TO  OUTLOOP  ; 

END  NOCOATA  ; 

YECDP  * RESCOP  ; 

LOOKU  * STEP2  ; 

GO  TO  FINOCOP  J 


•ORIGINAL' 
• ADDED'  ; 

* 'NONE' 

• ) THEN 


STEP2:  IF  { CDPREC 

LP1 : DO  ; 

NOF  = NDF 
DLINECST 


0 ) THEN 

♦ 1 ; 

> NODIR  ; 

GO  TO  OUTLOOP 


END  LP1 

READ  FILE  (COURSE)  INTO  (ACRS)  KEY  (CDPREC) 
DLINECST  = CST  ; 

GO  TO  OUTLOOP  ; 

/*  HERE,  VEHICLE  TYPE  RECORDS  ARE  PROCESSED  */ 


VI  ( 2 ) 


NV  = NV  ♦ l ; 

NLINE  * 1 ; 

DUNE  * ' ' ; 

PUT  STRING  (DLINE)  EDIT  ( NR,  RESID  ) 

( P ' Z » ZZ9 • , X ( 12  ) , A ( 1 3 1 ) ; 

IF  ( RSTAT  = 1 ) | ( RSTAT  * 2 ) THEN  GO  TO  STP2 

ELSE  GO  TO  ER1  ; 


STP2: 


IF  ( RSTAT  * 1 


) THEN  DLINE8 
ELSE  DLINE8 


•ORIGINAL' 
• ADDEO'  ; 


IF  ( RDSTAT  * 2 ) THEN 
NOVDATA:  DO  ; 

NN  * NN  ♦ l ; 

DL  INE33  * NOAB  ; 

GO  TO  OUTLOOP  ; 

END  NOVDATA  ; 

YEVEH  =•  RESID  5 

LOOKU  = STEP3  ; 

GO  TO  FINDVEH  ; 

ST6P3:  IF  < VEHREC  * 0 ) THEN 

LP2:  DO  ; 

NDF  = NDF  ♦ 1 J 
0LINE36  = NODIR  ; 

GO  TO  OUTLOOP  ; 

ENO  LP2  ; 

READ  FILE  (VEHS)  INTO  (AVEHICLES)  KEY  (VEHREC) 

DLINE33  = DEVDESIG  ; 

CARD  * • • ; 
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414 

415 
<*16 
<*17 
<*  l 8 
<*19 
420 
<*21 
<*22 
<*23 
4Z<* 
<-2  5 
<-26 
<*27 
<*29 
<*29 
<*30 
Ml 
<*32 
<*33 
434 
<*35 
<*36 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 
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$OURCE  CARD  LISTINGfFORqe  S£ARCh  Re$ULTS  pqr  EXTRACT  - FRI/  li/MAR/77  •/ 


CARD7 

NUNE 


DEVNAME 

2 ; 


GO  TO  OUTLOOP  ; 

/♦  NOW,  PROCESS  A TASK  RECORO  HERE  */ 


V 1 ( 3 ) 


NJ  « NJ 
NUNE  * 


♦ 1 

1 ; 


DUNE  * • • ; 

PUT  STUNG  (DUNE)  EDIT  ( NR*  RATE,  RANK,  REST. J08T ASK  ) 
( P' Z, ZZ9'  , X ( 12  ) , A,  xUf,  A,  X ( 3 ) , A ) *, 

IF  ( RSTAT  « l ) THEN  GO  TO  STP3  ; 

IF  ( RSTAT  » 2 ) THEN  GO  TO  STPA  ; 

GO  TO  ERl  ; 

STP3:  DUNE8  » •ORIGINAL*  i 

GD  TO  STP5  : 

STP4:  DLINE8  - • ADDED*  ; 

STP5:  IF  ( RDSTAT  - 2 ) THEN 

NOTOATA:  DD  i 

NN  « NN  ♦ L ; 

DLINE40  * NOAB  J 

GO  TO  OUTLOOP  J 
END  NOTDATA  ; 

YETASK  » RESID  J 
LOOKU  ■ STEP*  J 

GD  TO  FINDTASK  ; 

IF  ( TASKREC  - 0 I THEN 
D3  ’ 

ndf’»  ndf  ♦ l ; 

DL INE40  - NODIR  ; 

GO  TO  OUTLOOP  ; 

END  LP3  ; 

REAO  FILE  (TASKS)  INTO  (ATASKS)  KEY  (TASKREC)  ; 


STEP*: 
LP3 : 


CARD  > 

CARD7 

NLINE 


• • ; 

TASKTTL 
2 ; 


GO  TO  OUTLOOP  ; 

/+  HERE  IS  THE  PRINTED  LINE  OUTPUT  SEQUENCE  */ 

OUTLOOP:  IF  ( PTR  - 1 ) 

THEN  PUT  LIST  (DLINE I SKIP  (2)  J 

IF  ( PTR  « 1 ) L ( NLINE  ■ 2 ) 

THEN  PUT  LIST  ( CARD  ) SKIP  (1)  ; 

IF  < DISP  - 2 ) THEN  GO  TO  RD1  J 

IF  ( LT  > MAXLTB  ) THEN  SIGNAL  CONDITION  (NEWDP) 

DISPLAY  < DUNE  ) J 
LT  * LT  ♦ l ; 

IF  ( NLINE  — 2 ) THEN  GO  TO  RD1  J 
DISPLAY  ( CARD  ) « 


LT 


LT  ♦ l , 
GD  TO  RD1 
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SOURCE  CARO  LISTING  FOR 

P5C:  /*  PRINT  OF  ROE  SEARCH  RESULTS  FOR  EXTRACT 


FRI/ll/MAR/77  */ 


/***«*«******************•************/ 

DECLARE  ( FLCIN,  FLCDP,  FLVEH,  FLTASK  ) BIT  (11  STATIC. 
YECIN  CHAR  (8)  STATIC, 

YECDP  CHAR  (41  STATIC, 

( YETASK,  YEVEH  ) CHAR  (13)  STATIC, 

( CINREC,  COPREC,  VEHREC,  TASKREC,  VEHMAX,  TASKMAX, 
CINMAX,  CDPMAX  ) FIXED  BIN  STATIC, 

LOOKU  LABEL  ; 

/*  CIN  DIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  CIN  IN  YECIN 

EXIT  : CINREC  * 0 (NO  FIND)  OR  REG  NUMBER 

RETURN  VECTOR  IS  LOOKU  */ 

FINDCIN:  IF  ( FLCIN  ) THEN  GO  TO  CIN2  J 

CINMAX  * REFS  (2)  l 
FLCIN  3 • 1 ' B J 

CINLOAD:  DO  J 3 1 TO  4 J 

PLCIN  = ADDR  ( COVCIN  (J)  ) ; 

READ  FILE  (DCIN)  INTO  (LOADCIN)  i 
ENO  CINLOAD  ; 

CIN2:  DO  I 3 l TO  CINMAX  J 

IF  ( YECIN  CHCINII)  ) THEN  GO  TO  ECIN2  J 
CINREC  * CINPTR  (I)  ; 

GO  TO  LOOKU  J 

ECIN2:  END  CIN2  ; 

NFC  I N:  CINREC  * 0 ; 

GO  TO  LOOKU  ; 

/*  COP  DIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  COP  IN  YECDP 

EXIT  : CDPREC  - 0 (NO  FIND),  OR  REC  NUMBER 

RETURN  VECTOR  IS  LOOKU  */ 

FINOCDP:  IF  ( FLCDP  ) THEN  GO  TO  CDP2  J 

COPMAX  3 REFS  (3)  ; 

FLCDP  * • I'B  : 

CDPLOAO:  DO  J * l TO  4 ; 

PLCDP  3 ADDR  ( COVCDP  (J)  ) l 
READ  FILE  (DCDP)  INTO  (LOADCDP ) I 
END  CDPLOAO  ; 

C0P2:  DO  I 3 1 TO  CDPMAX  : 

IF  ( YECDP  -*3  CHCDP(I)  ) THEN  GO  TO  ECDP2  ; 
CDPREC  3 CDPPTRCI)  J 
GO  TO  LOOKU  J 

ECDP2:  END  CDP2  ; 

NFCDP:  CDPREC  3 0 ; 

GO  TO  LOOKU  *, 

/*  VEHICLE  ID  LOOKUP  SUBROUTINE 

ENTRY  : DESIRED  VEH  10  IN  YEVEH 

EXIT  : VEHREC  3 0 (NO  FIND),  OR  REC  NUMBER 

RETURN  VECTOR  IS  LOOKU  */ 

FINDVEH!  IF  ( FLVEH  ) THEN  GO  TO  VEH2  ; 

VEHMAX  3 REFS  (8)  ; 

FLVEH  3 *l*B  J 
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SOURCE  CARD  LISTING  FOR 

/*  PRINT  OF  ROE  SEARCH  RESULTS  FOR  EXTRACT  - FRI/ I I/MAR/77  */ 


552 

553 
55* 

555 

556 

557 

558 

559 

560 

561 

562 

563 
56* 

565 

566 

567 

568 

569 

570 

571 

572 

573 
57* 

575 

576 

577 

578 

579 

580 

581 

582 

583 
58* 
585 
5R6 

587 

588 

589 

590 

591 

592 

593 
59* 

595 

596 

597 

598 

599 

600 
601 
602 
603 
60* 

605 

606 
607 


P5C: 
VEHLOAD: 


VEH2 : 

EVEH2 : 
NFVEH: 


DO  J = 1 TO  * i 
PLVEH  * ADDR  ( COVVEH  (J)  ) l 
READ  FILE  (OVEH)  INTO  (LOADVEH) 
ENO  VEHLOAD  ; 


00  I * l TO  VEHMAX  ; 

IF  ( YEVEH  CHVEHI I ) ) 

VEHREC  * VEHPTR  ( I ) 
GO  TO  LOOKU  J 

ENO  VEH2  ; 


THEN  GO  TO  EVEH2 

t 


VEHREC  = 0 ; 

GO  TO  LOOKU 


/*  TASK  ID  DIRECTORY  LOOKUP  SUBROUTINE 

ENTRY  : OESIREO  TASK  10  (13-CHAR)  IN  YETASK 
EXIT  : TASKREC  » 0 (NO  FIND)  OR  REC  NUMBER 
RETURN  VECTOR  IS  LOOKU  •/ 

FINDTASK:  IF  ( FLTASK  ) THEN  GO  TO  TASK2  ; 


TASKMAX  « REFS  (12) 
FLTASK  « * l ' B ; 


T ASKLOAD: 


TASK2: 


00  J * l TO  12  ; 

PLTASK  * ADDR  ( COVTASK  (J)  ) i 
READ  FILE  (OTASK)  INTO  (LOAOTASK) 
ENO  TASKLOAD  5 


00  I * l TO  TASKMAX  ; 

IF  ( YETASK  -«  CHTASK( I ) ) 

TASKREC  * TASKPTR  ( I ) 

GO  TO  LOOKU  ; 

ETASK2:  ENO  TASK2  : 

NFTASK:  TASKREC  ' 0 ! 

GO  TO  LOOKU  J 

/ft************************************/ 

/*  IF  GET  HERE,  PROGRAM  IS  TERRIBLE  BROKE  */ 


THEN  GO  TO  ETASK2 
J 


BUSTED:  PUT  STRING  (CARD)  EDIT 

( • ERROR  NUMBER 

( A,  F ( 2 ) » A I ; 


NER,  • HAS  OCCUREO  **•  ) 


IF  ( PTR  = 1 ) THEN  PUT  EDIT  ( CARO,  DLINE  ) 
( SKIP! 3)  , A,  SKIP! 2) , A ) ; 

DISPLAY  ( • • ) J DISPLAY  ( DLINE  ) ; 

DISPLAY  ( • ' ) ; DISPLAY  ( CARD  ) 5 

/*************************************/ 

/*  HERE  IS  EOF  WINDUP  PROCESSING  */ 


608 

609 

EOJ : 

EOF:  WIND(i) 

at 

NC 

: w I NO ( 2 ) * NV  ; 

610 

WIND! 3) 

w 

NJ 

; w I nd ( * ) - NR  ; 

611 

W I NO ( 5 ) 

s 

NN 

; W IND( 6 ) - NDF  ; 

612 

613 

IF  ( PT 

R 

* 1 

) THEN  PUT  SKIP  (3)  ; 

614 

615 

DISPLAY 

< 

• 

’ » i 

NOW  AT  EOF  ON  SEARCH  RESULTS 

616 

DISPLAY 

I 

• ** 

617 

DISPLAY 

i 

• 

• ) ; 

618 

619 

SUMMARY:  DO 

J 

* 1 

TO  6 ; 

) ; 


620 
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627 
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629 

630 

631 

632 

633 

634 

635 

636 
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639 
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PAGE  NUMBER 
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SOURCE  CARD  LISTING  FOR 
P5C:  /*  PRINT  OF  ROE 


PJT  STRING  (DLINE) 
( WINDUPS! J ) • 

IF  ( PTR  * l ) 

THEN  PUT  LIST 


SEARCH  RESULTS  FOR  EXTRACT  - FRI/ll/MAR/77  */ 
EDIT 

WIND(J)  ) ( A ( 44 ) y P»ZZ,ZZ9»  ) ; 

( ( 10)  • • ||  DLINE  ) SKIP  (1)  1 


DISPLAY  ( DLINE 
ENO  SUMMARY  J 


) 


CLOSE  FILE  (MREF),  FILE  (ID),  FILE  (REE), 
FILE  (COURSE),  FILE  (DtDP), 

FILE  (VEHS),  FILE  (DVEH), 

FILE  (TASKS),  FILE  ( DTASK ) ; 


IF  ( PTR 


1 ) 


DISPLAY  ( • 
END  P5C 


THEN  CLOSE  FILE 

• ) ; 


(SYSPRINT) 
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SOURCE  CARD  LISTING  FOR  _ „ ,,  M 

P7:  /*  ABBREVIATED  COURSE  FILE  DIRECTORY  CONSTRUCT  - 12/14/76  */ 


1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 
1 7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 
4* 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


P7: 

/* 

*/ 

OECLARE 


DECLARE 

DECLARE 

DECLARE 


/*  ABBREVIATED  COURSE  FILE  DIRECTORY  CONSTRUCT  - 12/14/76  ♦/ 
PROC  UNPARM)  OPTIONS  (MAIN)  } 

REV  I S IONS  ! 

TUE/ 14/ DEC/76  - VERYFIRST  IMPLEMENTATION. 

MON/ 14/ MAR/77  - MODS  TO  PREPARE  FOR  SHIP  TO  NCSS. 


INPARM 

PARM 

DLINE 

YECIN 

STATIC 


! i?°BA$EO 


CHAR 
CHAR 

CHAR  (80) 

CHAR  (8) 

INIT  ( * ABCOEFGH' 


VARYING. 
SED  (PP), 
STATIC. 


) 


( 


COURSE 
DC  I N 
DCDP 


N35,  N15R,  NS,  TOTCIN,  TOTCDP,  T35,  LOOP,  NT, 

NER,  J ) FIXED  BIN  STATIC  i 

FILE  RECORO  INPUT, 

FILE  RECORD  OUTPUT, 

FILE  RECORD  OUTPUT  ; 


IH6SRT0  ENTRY 

< CHAR  (44),  CHAR  (27), 

FIXED  BIN  (31.0),  FIXED  BIN  (31,0), 
ENTRY,  ENTRY  ). 

ihesar:  entry  < fixed 

E 15 A ENTRY  RETURNS 

E35A  ENTRY, 

RCODE  FIXED  BIN  (31 


BIN  (31,0)  ), 

( CHAR  (11)  ), 


DECLARE  RSORT 


1 SORTREC 
2 STYPE 
2 DFLD1 
2 DFLD2 
2 RECPTR 

1 OVERO 
2 FI 
2 F2 

1 OVERC 


>0) 


CHAR  (20)  STATIC, 

BASED  (PSR), 

CHAR  (1), 

CHAR  (4), 

CHAR  (4), 

FIXED  BIN, 

BASED  (POO), 

CHAR  (8), 

FIXED  BIN, 

BASEO  (POC), 

CHAR  (4), 

FIXED  BIN  ; 


DECLARE  l 


ACRS 
2 SET 
3 
3 
3 
3 
3 

2 PC 
2 SET2 i 
3 

3 TYCRS 
3 SVC 
3 MI 
2 STCD 
2 STDTE 
2 SET  3 , 

3 TRAPS 
3 T PC 
2 ATT  A 
2 STBK 


:Tl, 
CDP 
C IN 
C ST 
NOBC 
NEC 

St2, 

RM$ 

TYCf 


STATIC, 


CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

:har 


( 4)  , 

( 8)  . 

( 16)  , 
(4), 
14), 
(2), 


/*  ABBR.  COURSE  FILE  */ 
/*  CKF. ACOURSES  */ 


( 


I: 


( 1) 
( 

( 


l!: 

p 1 1 


PICTURE  *( 5 ) 9' , 

CHAR  ( l ) , 

CHAR  (5). 
PICTURE  ' 99V9 ' , 
PICTURE  *99V9' , 


D.6-67 


TAEG  REPORT  NO.  40 


69 

70 

71 

72 

73 

74 

75 

76 

77 
7fl 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 
1 l 7 
118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 
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SOURCE  CARO  LISTING  FOR 
P7 : /*  ABBREVIATED  COURSE  FILE 


DIRECTORY  CONSTRUCT  - 12/14/76  ♦/ 


CLEN 

THRS 

LHRS 

CAOB 

CC80 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
CHAR  ( l 


•999* , 
•999*  , 
•999* , 

• (5)9V99* 


DECLARE  l CINDER  1304) 
2 CHCIN 
2 CINPTR 
LOADCIN 
COVCIN  (4) 


STATIC, 
CHAR  ( 8) , 
FIXED  BIN. 
CHAR  (760) 
CHAR  (760) 


DECLARE  1 CDPDIR  (1200)  STATIC, 

2 CHCOP  CHAR  (4), 

2 CDPPTR  FIXED  BIN. 

LOADCDP  CHAR  (1200) 

COVCDP  (6)  CHAR  (1200) 


/* 

/* 

BAS  EO 
BASED 

/* 

/* 

BASED 

BASED 


DECLARE  1 MAST 

2 REFS 
CARD 
MREF 


STATIC, 
(40)  FIXED 


i ,u ; riAcu  BIN, 
CHAR  (80)  STATIC, 
FILE  RECORD  UPDATE 


CRS  CIN  DIRECTORY  */ 
CKF.CRS.DIRCIN  */ 

(PLCIN) , 

( PTC  I N ) ; 

CRS  COP  DIRECTORY  */ 
CKF.CRS.DIRCDP  ♦/ 

( PLCDP ) , 

( PTCDP ) ; 


/*************************************/ 

/*  MASTER  IN  I T I L I Z AT  ION  DONE  HERE,  ONE  TIME  */ 

START:  PP  = ADDR  (INPARM)  ; 

PTC  I N = ADDR  (CINDER)  ; 

PTCDP  = ADDR  (CDPDIR)  ; 

PSR  = ADDR  ( RSORT ) ; 

POC  = ADDR  ( DFLD2 ) ; 

POD  = ADDR  ( DFLDl ) ; 

CHCIN  = • ' ; CHCDP  = • • ; 

CINPTR  * 0 : CDPPTR  = 0 ; 

N15 , N35,  N15R,  NS,  TOTCIN,  TOTCDP,  NT, 

NER  « 0 ; 

T35,  LOOP  * 1 ; 

NC  » -1  ; 

OPEN  FILE  (MREF)  RECORD  UPDATE  ; 

READ  FILE  (MREF)  INTO  (MAST)  ; 

DISPLAY  ( • ’ ) i 

DISPLAY  1 ‘ABBREVIATED  COURSE  DATABASE  CIN/CDP  DIRECTORY*  ) *. 
DISPLAY  ( • CONSTRUCT  PROGRAM*  ) ; 

DISPLAY  ( • • I ; 

CALL  IHESRTD  ( /*  BY  REC  TYPE,  BY  CIN-CDP  */ 

• SORT  FIELDS=(1 ,1,CH,A,2,8,CH,A) ,SI ZE*E2000 

• RECORD  TYPE=F, LENGTH* ( 20 ) • , 

50000,  RCODE , E15A,  E35A  ) ; 

/ **********************  ****** *********/ 

EISA:  /*  SORT  RECORD  MAKEUP  PROCEDURE  */ 

PROC  RETURNS  ( CHAR  (11)  ) ; 

N15  * N 15  ♦ l ; 

/*  THIS  IS  EOF  ROUTINE  FOR  COURSE  INPUT  FILE  */ 

ON  ENDFILE  (COURSE) 

BEGIN  ; 

DISPLAY  ( •**  EOF  ON  COURSE  INPUT  FILE  ; * 
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159 

160 
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163 
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165 

166 
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168 

169 
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171 
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173 

174 
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176 

177 

178 

179 

180 
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184 

185 
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’p7:CE  CA/2  ABBREVIATED  COURSE  FILE  DIRECTORY  CONSTRUCT  - 12/14/76  */ 

| | 'SORT  PHASE  START*  ) ; 

DISPLAY  ( • • 1 ; 

REFSI3),  REFS ( 1 ) 3 NC  5 

CALL  IHESARC  (8)  ; /*  TELL  SORT  NOMORE  RECORDS  */ 

GO  TO  ENDE15A  ; 

END  ; 

/*  E15A  INIT IL1ZATI0N  DONE  HERE  ONLY  ONE  TIME  */ 

IF  ( N15  > 1 ) THEN  GO  TO  STEPl  J 

STEPl : IF  ( N15R  > 0 ) THEN  GO  TO  STEP3  ; 

/*  THIS  IS  E15A  PROC  MAINLINE.  PROCESS  A NEW  RECORD  */ 

STEP2:  READ  FILE  (COURSE)  INTO  (ACRS)  J 

NC  * NC  ♦ 1 1 
RECPTR  3 NC  ; 

STYPE  = ' 1 ' ; 


0VERD.F1  3 CIN  J 
N15R  - 1 ; 

GO  TO  GIVE  J 

/*  HIRE,  SECONDARY  ENTRY;  GIVE  CDP  RECORD  OUT  */ 

STEP3:  N15R  = 0 

STYPE  = 


f 

•2* 


0VERD.F1 
OVERC.Fi  < 


: ' ' 

CDP  ; 


/*  HERE.  ANOTHER  RECORD  GIVEN  TO  SORT  */ 
GIVE: 


NS  3 NS  ♦ l ; 

CALL  IHESARC  ( 12 
RETURN  ( RSORT  ) i 


) 


/*  GOT  STILL  ANOTHER  RECORD  */ 


ENDE15A:  END  E15A  ; 

/*****************•*******************/ 

E35A:  /*  HERE  IS  THE  SORT  OUTPUT  PROCEDURE  */ 

PROC  ( INREC  ) ; 


DECLARE  INREC 
FMl:  FORMAT 


CHAR  (20)  ; 

( SKIP(l),  X ( 10 ) t 2 ( X ( 2 ) » F(4)  ), 
X ( 2 ) , Al 8 ) , 2 i X ( 2 ) . F ( 4 ) ) ) ; 


N35  3 N35  ♦ 1 ; 

RSORT  3 INREC  ; 

/*  HERE,  E35A  IN  I T I L I Z AT  1 3N  DONE  ONE  TIME  */ 

IF  ( N35  > 1 ) THEN  GO  TO  ROUTER  *, 

DISPLAY  ( •**  SORT  PHASE  COMPLETE  ; STARTING  CIN  * 

I I ’DIRECTORY  MAKEUP*  ) *. 

DISPLAY  ( * * ) J 

DISPLAY  ( • C I N NUM  CIN  TOTAL  COPS  REC  PTR • ) ; 

DISPLAY  ( * • ) ; 

DISPLAY  ( • • ) ; 

/*  ENTRY  ROUTING  DONE  HERE  */ 
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SOURCE  CARD  LISTING  FOR 

P7:  /*  ABBREVIATED  COURSE  FILE  DIRECTORY  CONSTRUCT  - 12/14/76  */ 

ROUTER:  IF  ( STYPE  = '2'  ) THEN  GO  TO  TYPE2  J 
/*  HERE,  STILL  PROCESSING  CIN  ENTRIES  */ 


TYPE  1 : 
DLl: 


DL2: 


IF  ( 0VER0.F1  = YECIN  ) THEN 
DO  ; 

NT  = NT  ♦ 1 ; 

GO  TO  ANOTHER  ; 

END  DLl  J 

IF  ( N35  > 1 ) THEN  /*  HERE,  CINS  HAVE  CHANGED  */ 

DO  : 

PUT  STRING  (DLINE)  EDIT 

( TOTCIN,  YECIN.  NT,  NFP  ) 

( X(l>,  F ( 4 ) » XI  4 ) » AIB),  X ( 6 ) , F(3),  X I 7 > , F(3)  ) ; 
DISPLAY  t DLINE  ) J 
END  DL2  ; 

NT  » l ; 

YECIN  * 0VERD.F1  ; 

NFP  = RECPTR  ; 

TOTCIN  = TOTCIN  + 1 J 
LOOP  = LOOP  ♦ 1 ; 

IF  ( LOOP  > 304  ) THEN  GO  TO  BUMCIN  ; 

CINDER  (LOOP)  * OVERD  ; 


ANOTHER:  CALL  IHESARC  ( 4 ) 

RETURN  J 


/*  GIMMIE  ANOTHER  SORT  RECORD  */ 


/*  HERE,  STARTING  CDP  ENTRIES  */ 


TYPE2 : IF  ( T35  = 1 ) THEN 


LP3 : 


DO 


/*  MUST  FINISH  LAST  CIN  ENTRY  */ 


PUT  STRING  (DLINE)  EDIT 

( TOTCIN,  YECIN,  NT,  NFP  ) 

( X(l),  F ( 4 ) , XI 4 ) , A ( 8 ) , X ( 6 ) , F(3),  X<7>,  F(3)  ) , 
OISPLAY  ( DUNE  ) i 


0 1 SPLAY  ( 
DISPLAY  ( 

DISPLAY  ( 
DISPLAY  ( 

DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 


• ) 


**  LAST  6f  CIN  DIRECTORY  ENTRIES  ENCOUNTERED  **•  ) ; 
**  NOW  *sf ARTING  CDP  DIRECTORY  **•  ) ; 


• ) ; 

CDP  NUM  CDP 


) 


REC  PTR ' ) ? 
, ) ; 


CINPTR  (1)  * LOOP  ; 

RE  FS ( 2 ) * LOOP  ; 

T35  * 2 : 

LOOP  = l ; 

END  LP3  5 

/*  PROCESS  NEXT  CDP  ENTRY  HERE  */ 

TOTCDP  * TOTCDP  ♦ l ; 

# LOOP  * LOOP  ♦ 1 ; 

IF  ( LOOP  > 1200  ) THEN  GO  TO  BUMCDP  ; 

CHCDP (LOOP)  * 0VERC.F1  J 
CDPPTR ( LOOP ) * 0VERC.F2  ; 
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SOURCE  CARO  LISTING  FOR 

P7 : /*  ABBREVIATED  COURSE  FILE  DIRECTORY  CONSTRUCT  - 12/14/76  */ 

PUT  STRING  (DLINE)  EDIT 

( TOTCDP,  0VERC.F1,  0VERC.F2  ) 

( X(l),  F ( 4 ) , XI  4 ) , A ( 4 1 , X I 4 1 » FI4)  ) ; 

DISPLAY  I DLINE  ) ; 

GO  TO  ANOTHER  ; /*  ONTO  NEXT  SORT  RECORD  */ 

/*  HERE.  OVERFLOWS  TO  DIRECTORY  MEMORY  TABLES  */ 


BUMCIN: 


DISPLAY  I 
DISPLAY  ( 
NER  * l ; 
GO  TO 


BUMCDP : DISPLAY 
DISPLAY 
NER  * 2 

BUM2:  DISPLAY 

DISPLAY 

II 


I 


• ) ; 

****  CIN  TABLE  OVERFLOW  *****  ) 


BUM2 


• ) ; 

****  C DP  TABLE  OVERFLOW  ***♦•  ) 


DIRECTORY  CONSTRUCT  PROGRAM 
DUE  TO  ERROR'  1 ; 


ENDE35A: 


CALL  IHESARC  ( 8 ) 
GO  TO  ENDE35A 

END  E35A  ; 


IS  TERMINATING* 

/*  STOP  SORT  RECORDS,  EVEN  IF  MORE  */ 


/***************************«*********/ 

/*  HERE,  BACK  (ONE  WAY  OR  ANOTHER!  FROM  THE  SORT; 
EITHER  THE  SORT  COMPLETED  OK,  OR  ERROR  FORCED 
THE  TERMINATION  */ 

IF  ( RCODE  * 16  ) 

THEN  DISPLAY  I • ***  SORT  FAILED,  CODE  * 


16  **'  ) 


ELSE 
IF  ( 


LP4 : 


RCODE  = 0 ) 

THEN  DISPLAY  I ' **  SORT  COMPLETED  OK,  CODE 

ELSE 
DO  ; 

PUT  STRING  (DLINE)  EDIT 

( •**  SORT  RETURN  CODE  INVALID,  *, 
•CODE  WAS  ',  RCODE,  • ***  ) 

( A,  A,  F ( 2 ) , A ) ; 

DISPLAY  ( DLINE  1 } 

END  ; 

/*  NOW,  FINISH  UP  BY  WRITING  DIRECTORIES  OUT  TO  DISK  */ 

IF  ( RCODE  -=  0 > I I NER  > 0 1 THEN  GO  TO  STEP99  ; 

CDPPTR  (l)  * LOOP  ; 

DO  J * 1 TO  4 ; 

PLCIN  - ADDR  ( COVCIN  (J)  1 : 

WRITE  FILE  IDCINI  FROM  (LOADCIN)  ; 

END  LP4  ; 

DISPLAY  ( • ' 1 ; 

DISPLAY  ( •**  CIN  DIRECTORY  HAS  BEEN  SUCCESSFULLY  • 

II  'REWRITTEN'  1 ; 


0 **• ) ; 


LP5 : 


DO  J * 1 TO  6 » 

PLCDP  « ADDR  C COVCDP  (J)  ) ; 
WRITE  FILE  (DCDP)  FROM  (LOADCDP) 
END  LP5  *, 
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SOURCE 
P7 : 


CARO  LISTING  FOR 

/*  ABBREVIATED  COURSE  FILE  DIRECTORY  CONSTRUCT  - 12/14/76  */ 


DISPLAY  ( • ' ) ; 

DISPLAY  ( '**  COP  DIRECTORY 
II  'REWRITTEN'  ) ; 


HAS  BEEN  SUCCESSFULLY  • 


STEP99:  CLOSE  FILE  (DCIN),  FILE  IDCDP),  FILE  (COURSE)  ; 

REWRITE  FILE  (HREF)  FROM  (MAST)  ; 

CLOSE  FILE  ( MREF ) ; 

DISPLAY  ( • • ) } 

DISPLAY  ( 'COURSE  DIRECTORY  CONSTRUCT  PROGRAM  ' 
II  'IS  NOW  TERMINATING'  ) J 
DISPLAY  ( • • ) J 

END  P7  ; 
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P7A: 


/* 


*/ 


/*  COURSE  FILE  DESCRIPTORS  LOAD  - WEO/ 15/DEC/76  */ 
PROC  OPTIONS  (MAIN)  ; 

REVISIONS  : 

WE0/15/DEC/76  - FIRST  IMPLEMENTATION. 

MON/ 14/ MAR/ 77  - MODS  TO  PREPARE  FOR  SHIP  TO  NCSS. 


DECLARE  1 


CINDESC 
2 CINOS 
2 FILL 

2 DTAB  (100) 


DECLARE 


1 CINCARO 

2 cmo 

2 FILL 
2 C INNUMS 

DLINE 

CARO 


STATIC. 
CHAR  (8). 
CHAR  (5), 
FIXED  BIN 

STATIC. 
CHAR  (8). 
CHAR  (1). 
CHAR  ( 71 1 . 


CHAR  (80)  STATIC. 

CHAR  (80)  BASED  (PCARD) 


DECLARE  YECIN  CHAR  ( 8) 

STATIC  INIT  ( * ABCDEFGH*  ), 

GNUMS  (24)  FIXED  BIN  STATIC. 

LCARO  CHAR  (80)  BASEO  (PLOAD), 

ICOURSE  (160)  FIXEO  BIN  STATIC. 

( N15,  N35,  NT,  NC,  TOTCIN,  T15,  NS,  J,  CINTOT, 
NER  ) FIXED  BIN  STATIC. 

RSORT  CHAR  (213)  STATIC  S 


OECLARE  DCARD 
DESC 
DINO 


FILE  RECORD  INPUT, 
FILE  RECORD  OUTPUT, 
FILE  RECORO  INPUT  ; 


OECLARE  l CINDER  (304)  STATIC, 

2 CHCIN  CHAR  (8), 

2 CINPTR  FIXED  BIN. 

LOADCIN  CHAR  (760) 

COVCIN  (4)  CHAR  (760) 


BASED 

BASED 


(PLCIN) , 
( PTCIN ) 


DECLARE  1 


OINDEX  BASEO 

2 DST ART  FIXED 

2 DEND  FIXED 

2 NCAT  FIXED 

2 NDESC  FIXEO 

2 CATEGORIES  (15). 

3 PCAT  FIXED 

3 SCAT  FIXED 

3 ECAT  FIXEO 

PDESC  (111)  FIXED 


(PIN) 

BIN, 

BIN, 

BIN, 

BIN, 


COVER  (4) 


BIN, 

BIN, 

BIN, 

BIN 


DECLARE  1 


MAST 
2 REFS 


(40) 


CHAR  (80) 

STATIC . 
FIXED  &IN 


&ASED 


(PCOV) 


START:  NC,  NS,  TOTCIN,  NEOF,  LOOP, 

J,  CINTOT,  NT  « 0 ; 

PIN  - AODR  ( ICOURSE)  f 
PCARD  - ADDR  (CINCARD)  J 
PTCIN  - ADDR  (CINDER)  ; 

PCOV  * ADDR  ( ICOURSE)  ; 

PLOAD  - ADDR  ( COVER! 1)1; 

OPEN  FILE  (DCARD)  RECORD  INPUT, 
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PAGE  NUMBER  : 2 

SOURCE  CARD  LISTING  FOR 

P7A:  /*  COURSE  FILE  DESCRIPTORS  LOAD  - WED/15/DEC/76  */ 

FILE  (DIND)  RECORD  INPUT  ; 

READ  FILE  (DIND)  IGNORE  (1)  ; 

LPl:  00  J = l TO  4 i 

PLOAD  * AODR  ( COVER  (J)  ) *. 

READ  FILE  (OIND)  INTO  ( LCARD)  ; 

END  LPl  ; 

DISPLAY  ( • ’ ) » 

DISPLAY  ( * COURSE  FILE  DESCRIPTOR  LOAD  PROGRAM*  ) ; 
DISPLAY  ( • • ) ; 

DISPLAY  ( • CIN  ASSIGNED  DESCR I PTOR ( S ) * ) ; 

DISPLAY  ( * • ) ; 

DISPLAY  ( • * ) 5 

C INDESC .FILL  * * ' ; 

OPEN  FILE  (HREF)  RECORD  UPDATE  ; 

READ  FILE  ( MREF ) INTO  (MAST)  J 

ON  ENDFILE  ( DCARD ) GO  TO  EOJ  ; 

READ  FILE  ( DCARO ) INTO  (CARD)  ; 

NC  * l ; 

DISPLAY  ( CARD  ) ; 

GO  TO  STEP2  J 


/***•*******♦****♦********************/ 

/*  NEXT  DESCRIPTOR  CARO  INPUT  HERE  */ 

STEP1 : READ  FILE  (DCARD)  INTO  (CARD)  ; 

NC  - NC  ♦ 1 ; 

DISPLAY  ( CARD  I S 

IF  ( CINID  « YECIN  ) THEN  GO  TO  STEP3  • 

/*  HERE.  STARTING  A BRAND-NEW  CIN;  FIRST  WRITE  OLD-CIN 
RECORD  OUT  TO  DESCRIPTOR  FILE  */ 


WRITE  FILE  (DESC)  FROM  (CINDESC) 
NS  - NS  ♦ 1 ; 


STEP2: 
STEP2B ! 
STEP3: 

LP3: 


YECIN  * 
TOTCIN 

CINDS  > 
DTAB  * 


CINID  ; 
■ TOTCIN 

CINID  ; 


♦ l 


/*  STARTING  NEW  CIN  HERE  */ 


GNUMS  = 0 ; 

GET  STRING  (CINNUMS)  EDIT 

(GNUMS)  ( 24  ( F ( 2 ) . X ( l ) 


/*  CINS  HERE  ARE  (■),  START  •/ 
/*  MAKEP  OF  NEW  OESC  RECORD  */ 

/*  EXTRACT  SUBSCRIPTS  */ 


) ) ; 

/♦  SUBSCRIPTS  VERIFIED  HERE  */ 


NT  = 0 ; 

D3  J - 1 TO  24  ; 

NTEST  » GNUMS  (J)  • 

IF  ( NTEST  - 0 ) THEN  GO  TO  ENDLP3  J 
NT  - NT  ♦ l J 

IF  ( PDESC  ( NTEST  ) ■*«  0 ) THEN  GO  TO  STEP4 

NER  « NER  ♦ l J 

DISPLAY  ( • * ) I 

PUT  STRING  (DLINE)  EDIT 
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SOURCE  CARD  LISTING  FOR 
P7A: 


/♦  COURSE  FILE  DESCRIPTORS  LOAD  - WED/ 15/DEC/76  */ 
( •-  DESCRIPTOR  SUB 

**• 


•**  ERROR  IN  CIN  -',  CINIO, 

•-  DESCRIPTOR  SUBSCRIPT  ',  NTEST, 
EXIST  **•  ) ( A,  A,  A, 


• DOES  NOT 
D I SPLAT  ( OLINE  ) ; 

D I SPLAT  ( • ' ) i 


F ( A 1 » A I 


STEPA: 

ENDLP3: 


GO  TO  ENDLP3  ; 

PDESC 


DTAB  (NTEST) 
END  LP3  ; 


(NTEST) 


GO  TO  STEP1  ; 

/ft************************************/ 

/*  HERE,  EOF  ON  INPUT  DESCRIPTOR  DECK  */ 


EOJ : 


E0J2: 


WRITE  FILE  (DESC) 
NS  = NS  ♦ 1 ; 


FROM  (CINOESC) 


/♦  LAST  RECORD  */ 


REFS  (5  ) * NC  S 
REFS  (6)  * NS  ; 
REWRITE  FILE  ( MREF ) 


FROM  (MAST)  ; 


CLOSE  FILE  (DESC),  FILE  (DIND), 
FILE  (MREF),  FILE  ( DC ARD ) 


DISPLAT 

DISPLAT 


t 


, 

• ** 


' ) ; 
NOW  AT 


EOF  ON  DESCRIPTOR  CARO  INPUT  **'  ) 


DISPLAT  ( • • ) ; 

PUT  STRING  (DLINE)  EDIT 

( • TOTAL  NUMBER  DESCRIPTOR 

( A,  P'Z,ZZ9*  ) ; 

DISPLAT  ( DLINE  ) ; 


PUT 


INPUT  CARDS 


NC  ) 


STRING  (DLINE)  EDIT 
( • TOTAL  UNIQUE  CIN  NUMBERS 

( A.  P'Z,ZZ9»  ) ; 

DISPLAT  < DLINE  ) ; 

PUT  STRING  (DLINE)  EDIT 

< 'TOTAL  NUMBER  OUTPUT  DESCRIPTOR 
( A,  P*  Z, ZZ9'  ) ; 

DISPLAT  ( DLINE  ) 5 


IN  INPUT  : ',  TOTCIN  ) 


RECORDS 


PUT  STRING  (DLINE)  EDIT 

( • TOTAL  NUMBER  CIN  OR 
( A.  P' Z , ZZ9 ' ) ; 

01  SPLAT  ( DLINE  ) I 


SUBSCRIPT  ERRORS 


NS  ) 


NER  ) 


DISPLAT  ( • • ) ; 

DISPLAT  ( 'COURSE  DESCRIPTOR  LOAD  PROGRAM  IS 
II  'TERMINATING'  ) ; 

DISPLAT  ( • • ) ; 

END  P7A  ; 
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31 
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35 
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P7BJ 


/* 


*/ 


/*  ABBREVIATED  COURSE  FILE  LISTINGS  - MON/1 7/ JAN/77  */ 
PROC  (INPARM)  OPTIONS  (MAIN)  ; 

REVISIONS  : 

MON/17/ JAN/77  - FIRST  IMPLEMENTATION. 

SUN/20/ MAR/77  - MODS  PRIOR  TO  INSTALLATION  AT  NCSS. 


DECLARE  INPARM 
1 POVER 


2 

2 


PARM 
PARM2  CHAR 


CHAR  (100)  VARYING* 
BASED  (PP), 

CHAR  (1), 

(4)  ; 


DECLARE  INDESC 


FILE  RECORD  DIRECT 


KEYED  ENV  ( REGIONAL! 1)  )* 


COURSE 

KEYED  ENV 


FILE  RECORD  DIRECT 
( REGIONAL!  1)  ) *. 


INPUT 


DECLARE  Tl 
NOBC  NEC 

T2 


RMS 


CHAR 

TPC 


(74)  STATIC  INIT  ( • CIN 
LEN  THRS  LHRS  ATTR  STBX*  )* 


COP 


COURSE  TITLE 


1 T3 
2 FI 
2 
2 
2 
2 
2 
2 
2 


CHAR  (74)  STATIC  INIT  ( 
STATIC, 


). 


CHAR  ( Is ) INIT  ( 
PC  CHAR  (2), 

F2  CHAR  (16)  INIT  ( 

TYCRS  CHAR  (2)  . 

F3  CHAR  (19)  INIT  ( 

CHAR  (1). 

CHAR  (16) 


SVC 

F4 

CAOB 


T30VER 
1 T 4 


INIT  ( » 

PICTURE  * 14 ) Z9V.99*  * 

CHAR  (79)  BASED  ( PT3  ) * 


PRIORITY  : • )* 

TYPE  CRS  : • )* 
SERVICE  CDE  : • 
COST/AOB  : ' ) * 


STATIC, 

FI  CHAR  (15)  INIT  ( 

TRAPS  CHAR  (1). 

F2  CHAR  (17)  INIT  ( 

STCD  CHAR  (i). 

F3  CHAR  (20)  INIT  ( 

STDTE  PICTURE  *(5)9‘, 


F4 

MI 


CHAR  (12) 
CHAR  (1), 


INIT  ( • 


TRAPS  : 
STATUS 
STATUS  DTE 
METH-I  : » >, 


) . 

• ) 


T40VER 

02 

DLINE 
DECLARE  ELINE 


CHAR  (72)  BASED  ( PT4 ) * 


CHAR 

CHAR 


CHAR  (2)  DEF  DLINE  POS  (1), 
(80)  STATIC  J 


(38)  STATIC  INIT  ( 

••*  ERROR  XX  OCCURED?  NREC  WAS  XXXXX  ), 

ENO  CHAR  (2)  DEF  ELINE  POS  (10), 

ENREC  PICTURE  'ZZZZ9*  DEF  ELINE  POS  (31), 

( D1SP,  PTR , TPAGE,  J,  JKEY,  LL,  LP,  LT,  MAX,  MAXC, 
MAXCDP.  MAXCKEY,  MAXLD,  MAXLP , NREC,  NSK, 

PP AGE  ) FIXED  BIN  STATIC, 

( RT  A ( 3 ) , RTB ( 2 ) , 

RTC ( 2 ) ) LABEL  i 

/ft************************************/ 


DECLARE  l CDPDIR  (1200)  STATIC, 


/*  CRS  CDP  DIRECTORY  */ 
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9* 

95 

96 

97 
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128 

129 

130 

131 

132 

133 

134 

135 

136 

137 


2 CMC DP 
2 CDPPTR 
LOAOCOP 
COVCDP  (6) 


CHAR  ( 4 1 t 
FIXED  BIN. 
CHAR  ( 1200) 
CHAR  ( 1200) 


/*  CKF.CRS.DIRCDP  */ 


BASED 

BASED 


IPLCDP). 
(PTCDP ) 


DECLARE  1 DINDEX  STATIC. 

2 DST ART  FIXED  BIN. 

2 OEND  FIXED  BIN. 

2 NCAT  FIXED  BIN. 

2 NOE SC  FIXED  BIN* 

2 CATEGORIES  (15). 

3 PCAT  FIXED  BIN. 

3 SCAT  FIXEO  BIN, 

3 ECAT  FIXED  BIN. 

2 PDESC  (111)  FIXED  BIN. 


/*  OVERALL  DESCRIPTOR  INDEX  */ 
/*  CXF.DESC. INDEX  */ 


COVER  (4) 

DECLARE  1 MAST 

2 REFS  (40) 
CARD 


CHAR  (80)  BASED  (PCOV)  ; 


STATIC. 

FIXED  BIN. 

CHAR  (80)  STATIC 


DECLARE  l 


ACRS 
2 SET  1 , 


STATIC 


CDP 
CIN 
C ST 
NOBC 
NEC 


3 
3 
3 
3 
3 

PC 
SET  2 » 

3 RMS 
3 TYCRS 
3 SVC 
3 MI 
STCD 
STDTE 
SET3, 

3 TRAPS 
3 T PC 
ATT  R 
STBK 
CLEN 
THRS 
LHRS 
CA3B 
CCS  0 


CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 


(4), 

( 8) , 

( 16), 
(4), 
(4), 
(2), 


/*  ABBR.  COURSE  FILE  */ 
/*  CKF. ACOURSES  */ 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
PICTURE 


(3), 
(2), 
( 1), 
( 1), 
( l), 

9 F I 


CHAR  ( l ) 

CHAR  (5) 

PICTURE 

PICTURE 

PICTURE 

PICTURE 

PICTURE 

PICTURE 

CHAR  ( l ) 


(5)9* , 


• 99V9* , 

* 99V9* , 
•999* , 
•999* , 
•999* , 

• I5I9V99', 


/**«************************«*********/ 

START:  PT 3 * ADDR  (T3)  J 

PT4  * ADDR  (T4)  ; 

PP  « AO DR  ( INPARM)  ; 

PTCDP  « ADDR  (CDPDIR)  S 
PCOV  - ADDR  (DINDEX)  ; 

TPAGE,  PPAGE  * 0 5 
MAXLP  * 58  : 

MAXLD  « 60  *, 

NREC  • -1  ; 

JKEY  - l i 
LL  « 1 ! 


COMMENCE: 

OPEN 

READ 


FILE  ( MREF ) RECORD  INPUT  ; 
FILE  (MREF)  INTO  (MAST)  ; 


MAXCOP  = 
MAXCKEY 


REFS(l) 

• REFS! 1 ) 


♦ 2 
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139 
1*0 
1<*1 
1*2 
1*3 
l** 
1*5 
1*6 
1*7 
1*8 
1*9 

150 

151 

152 

153 
15* 

155 

156 

157 

158 

159 

160 
161 
162 
163 
16* 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17* 

175 

176 

177 

178 

179 

180 
181 
182 
183 
18* 

185 

186 

187 

188 

189 

190 

191 

192 

193 
19* 

195 

196 

197 

198 

199 

200 
201 
202 
203 
20* 

205 

206 
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P7B:  /♦  ABBREVIATED  COURSE  FILE  LISTINGS  - MON/17/ JAN/77  */ 


MAXC 

IF  ( PARH 

OPEN  FILE 

IF  1 PARM 

BSETUP:  OPEN  FILE 
CDPLOAD:  00  J 

PLCDP 


» REFS ( * ) ; 

« *C'  ) THEN  GO  TO  CSETUP 

(COURSE)  DIRECT  INPUT  ; 

* ' A • ) THEN  GO  TO  FIRST  ; 

(OCOP)  RECORD  INPUT  ; 

- I TO  6 J 

ADDR  ( COVCDP(J)  ) 


Luur  * auuk  « ujvv»ur«j«  i , 

READ  FILE  (DCDP)  INTO  ( LOAOCDP ) 
END  CDPLOAD  *. 


CSETUP:  OPEN  FILE  (INDESC)  INPUT  ; 

DO  J » 1 TO  * I /*  NOTE.  SKIPS  REC 

READ  FILE  (INDESC)  INTO  (CARD)  KEY  (J) 


0 •/ 


COVER 
END 


(J) 


CARD 


NREC 


FIRST: 


DISP,  PTR 
IF  ( PARM2 


DSTART  - l ; 
1 


•BOTH' 


IF  ( PARM2  » 'TERM' 
THEN  PTR  » 2 J 
ELSE  DISP  » 2 


THEN  GO  TO  STEP1 


STEP1 : 


LT,  LP  - 
IF  ( PTR 


100 
» 2 


I THEN  30  TO  STEP6  ; 

/*  HERE.  PRINTER  DATASET  IS  INITILIZED  */ 

OPEN  FILE  ( MPTR ) STREAM  PRINT 

PAGESIZE  (58)  LINESIZE  (120)  ; 


ON  ENDPAGE  (MPTR) 
BEGIN  ; 

PPAGE  * PPAGE 


♦ l 


IF  ( PARM  * *C‘  ) THEN  GO  TO  STEP2 

T2 


PUT  FILE  (MPTR)  EDIT 

( * PAGE  NO  : •.  PPAGE.  Tl,  T2,  • • ) 

( PAGE.  LINE ( 2 ) . X(10)»  A.  F I * I , 

2 ( SKIP(l).  X ( 10 ) » A ( 7 * ) ).  SKIP(l).  A ) 
GO  TO  SKP  ; 


STEP2: 


SKP: 
STEP3 : 


PUT  FILE 

. 

. 


ilc  (MPTR)  EDIT  ( 'PAGE  NO  : •,  PPAGE, 

•***  LISTING  OF  DESCRIPTOR  CATEGORIES  AS', 
• APPLIED  TO  COURSE  DATA  ***',  • * ) 

( PAGE.  L INE ( 5 ) . X(20),  A,  F(2>, 

SKIP(3),  X ( 20 1 , A,  SKIPU),  X(20),  A, 


PUT  FILE 
END  ; 


SK I P ( 3 ) , A ) 
(MPTR)  SKIP 


( 1 ) 


SIGNAL  ENDPAGE  (MPTR)  ; 

STEP6:  IF  ( PARM  *C'  ) THEN  GO  TO  PLOOP  ; 

/*  PRINTING  LOOP  FOR  C-OPTION  FOLLOWS  */ 

CLOOP:  NREC  » NREC  ♦ 1 ; 

ER2 : IF  ( NREC  > MAXC  > THEN  GO  TO  BUST2  ; 

READ  FILE  (INDESC)  INTO  (OLINE ) KEY  (NREC) 
GO  TO  ROUTES  ; 
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229 
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231 

232 
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257 
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266 

267 

268 

269 

270 

271 
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P7B:  /*  ABBREVIATED  COURSE  FILE  LISTINGS  - MON/17/ JAN/77  */ 

/*  PRINTING  LOOP  FOR  A-B  OPTIONS  */ 

PLOOP: 


LL 

IF 


( 


l ; 

PARM 


* 'B'  ) THEN  GO  TO  BREAD 


AREAD: 
GETCRS : 

BREAD: 

ER1 : 


NREC  - NREC  ♦ 1 ; 

IF  ( NREC  > MAXCDP  ) THEN  GO  TO  EOF AB  ; 
READ  FILE  (COURSE)  INTO  (ACRS)  KEY  (NREC) 
GO  TO  ROUTEA  ; 

JKEY  a JKEY  t l ; 

IF  ( JKEY  > MAXCKEY  ) THEN  GO  TO  EOFAB  ; 
NREC  » CDPPTR  (JKEY)  J 

IF  ( NREC  > MAXCDP  ) THEN  GO  TO  BUST1  ; 

GO  TO  GETCRS  : 


/*  ROUTING  DONE  HERE  BASED  ON  PRINT  LINE  NO  1,2,  OR  3 */ 
ROUTEA:  GO  TO  RTA  (LL)  i 


RT A ( l ) 


PUT  STRING  (DLINE)  EDIT 

( CIN,  CDP,  CST r NQBC » NEC,  RMS,  TPC, 

CLEN,  THRS,  LHRS,  ATTR,  $TBK  ) 

( A ( 8 ) , X(l>,  A( * ) , X(l),  A( 16 ) , X(l),  A ( * ) , X(l), 
A ( * ) , A(l),  A ( 3 ) , X(l),  A( 5 ) » X(l),  P * Z79* , 


< X ( 2 ) , P'ZZ9» 
GO  TO  ROUTE  B 


),  2 ( X(l),  P'  Z9V.9'  ) ) *. 


RTA( 2 ) 


RTA ( 3 ) 


T3  - ACRS,  BY  NAME  ; 
T3.TYCRS  * ACRS.SET2. TYCRS 
T3.SVC  - ACRS. SET2. SVC  ; 
DLINE  * T30VER  5 

GO  TO  ROUTES  ; 

T*  » ACRS,  BY  NAME  ; 

T*. TRAPS  - ACRS. SET3. TRAPS 
TA.MI  - ACRS. SET2.MI  ; 
DLINE  « T AOVER  ; 


/*  NOW,  SETUP  FOR  OUTPUT  OF  A NEW  LINE  */ 


ROUTES : 
RTB ( 1 ) : 


LPl 


LP2A : 
LP2 : 


LP3: 


GO  TO  RTB  (DISP)  *. 

/*  HERE  TERMINAL  IS  SERVICED  */ 


LT 

IF 

IF 


LT  ♦ 1 

PARM  * *C'  ) THEN  GO  TO  LP2A  ; 


LL 
DO 
LT  « LT 
DI SPLAY 
END  LPl 


1 ) THEN 


IF  ( 


LT  : 
DO  ; 
MAX 


MAXLD  ) 
> MAXLD 


• ) i 

THEN 
♦ * ; 


DO  J a LT  TO  MAX 
DISPLAY  ( • • ) 

END  LP3  J 

TPAGE  * TPAGE  ♦ l ; 
DISPLAY  ( • PAGE  : 
DISPLAY  ( • • ) { 

LT  * * ; 


( I I TPAGE  ) 


IF  ( PARM 


•C*  ) THEN  GO  TO  LP3A 
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277 

DISPLAY  ( T1  ) 5 

278 

DISPLAY  ( T2  ) { 

279 

DISPLAY  ( • • ) ; 

280 

281 

LT  » 7 ; 

282 

LP3A: 

ENO  LP2  ; 

283 

284 

IF 

( 

PARM  * • C • ) L ( ( D2  * '*♦’>  1 (D2  » ' — ')  ) 

285 

THEN  DO  5 DISPLAY  ( • • > J LT  s LT  ♦ 1 l 

286 

287 

DISPLAY  ( DLINE  ) ; 

288 

289 

RTB12) : 

/* 

IF  REQUIRED,  OFFLINE  PTR  SERVICED  HERE  */ 

290 

GO 

TO  RTC  ( PTR  ) ; 

291 

292 

RTC(l) : 

/* 

HERE,  LINE  PRINTER  IS  SERVICED  */ 

293 

NSK 

- l ; 

294 

IF 

( 

PARM  * 'C'  ) THEN  GO  TO  LINEOUT  , 

295 

296 

IF 

( 

LL  * 1 ) C ( LINENOi MPTR ) > 54  ) 

297 

THEN  SIGNAL  ENDPAGE  (MPTR)  ; 

298 

299 

IF 

( 

LL  * 1 ) THEN  NSK  » 2 ; 

300 

301 

LINEOUT 

• 

• 

PARM  * *C')  C ( ( D2  * •**•)  | (D2  * • — ■ > ) 

302 

IF 

( 

303 

THEN  NSK  = 2 J 

304 

305 

PUT 

FILE  (MPTR)  EDIT  (DLINE) 

306 

( SKIP(NSK),  X(10),  A ( 80 ) ) ; 

307 

308 

/♦  NOW, 

REGROUP  FOR  NEXT  LINE,  IF  ANY  */ 

309 

310 

RTC ( 2 ) : 

311 

TALLY: 

IF 

( 

PARM  *C  ) THEN  GO  TO  STEP5  ; 

312 

313 

IF 

( 

NREC  >»  DEND  ) 

314 

THEN  GO  TO  EOFAB  i 

315 

ELSE  GO  TO  CLOOP  ; 

316 

317 

STEP5: 

LL 

m 

LL  ♦ l : 

318 

IF 

c 

LL  < 4 i THEN  GO  TO  ROUTEA  ; 

319 

ELSE  GO  TO  PLOOP  ; 

320 

321 

322 

323 

/********************«****************/ 

/*  MAX  KEY  EXCEEDED  ERRORS  PROCESSED  HERE  */ 

324 

325 

BUST  1 : 

ENO 

= '01*  : 

GO  TO  STEP4  ; 

326 

327 

BUST2 : 

ENO 

< • 02*  ; 

328 

329 

STEP4 : 

ENREC  * NREC  ; 

330 

331 

IF 

I 

DISP  « l ) THEN 

332 

LP4: 

DO  : 

333 

DISPLAY  ( • • ) ; 

334 

DISPLAY  ( ELINE  ) *, 

335 

DISPLAY  ( • • ) ; 

336 

END  LP4  ; 

337 

338 

IF 

i 

PTR  « l ) THEN 

339 

PUT  FILE  (MPTR)  EOIT  (ELINE) 

340 

( SKIP( 2)  , X ( 20) , A ( 38  ) ) 5 

341 

342 

/*************************************/ 

343 

344 

/♦  HERE, 

EOF  OCCURED  ON  INPUT  FILE  */ 
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EOFAB : IF  ( PTR  » I ) 

THEN  CLOSE  FILE  ( HPTR) 

END  P7B  ; 


MON/17/ JAN/77  */ 
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1 

2 
3 
A 

5 

6 
7 
6 
9 


P8: 


/* 


*/ 


/*  VEHICLE  DATA/DESCRIPTOR  LOAD*  DIRECTORY  - MON/24/ JAN/77  */ 
PROC  OPTIONS  (MAIN)  ; 

REVISIONS  : 

MON/24/ JAN/77  - INITIAL  IMPLEMENTATION. 

TUE/ 15/ MAR/77  - MODS  PRIOR  TO  SHIPPING  TO  NCSS.. 


10 

DECLARE 

CARD 

CHAR  (80) 

11 

OLINE 

CHAR  (80) 

12 

CC7079 

CHAR  ( 10)  1 

13 

FVEHS  (200) 

FIXED  BIN 

14 

NODATA  (200) 

CHAR  ( 13) 

15 

( DIFLAG,  D2FLAG,  ND,  NV, 
NTEST,  TER,  NER,  NOD 

16 

17 

NOIR,  J ) 

FIXED  BIN 

18 

19 

DECLARE 

1 DINDEX 

STATIC, 

20 

2 OSTART 

FIXED  BIN, 

21 

2 DEND 

FIXED  BIN, 

22 

2 NCAT 

FIXED  BIN, 

23 

2 NDESC 

FIXED  BIN, 

24 

2 CATEGORIES 

(15). 

FIXED  BIN, 

25 

3 PCAT 

26 

3 SCAT 

FIXED  BIN, 

27 

3 ECAT 

FIXED  BIN, 

28 

2 PDESC  (111) 

FIXED  BIN 

29 

COVER  (4) 

CHAR  (80) 

30 

31 

DECLARE 

1 MAST 

STATIC, 

32 

2 REFS  (40) 

FIXED  BIN, 

33 

34 

DIND 

FILE  RECOR 

35 

KEYED  ENV 

( REGIONAL 

36 

37 

38 

39 

DECLARE 

1 VEHCARD 

STATIC, 

40 

2 VSN 

CHAR  (13), 

41 

2 FILL 

CHAR  ( 1 ) , 

42 

2 VEHNUMS 

CHAR  (66), 

43 

44 

VEH80 

CHAR  (80) 

45 

GVNS  (22) 

FIXED  BIN 

46 

YEVEH 

CHAR  (13) 

47 

48 

1 VEHDESC 

STATIC. 

49 

50 

2 VENDS 
2 VTA 3 (100) 

CHAR  (13), 
FIXED  BIN 

51 

52 

DECLARE 

1 VEHDIR  (200) 

STATIC, 
CHAR  (13), 

53 

2 CHVEH 

54 

2 VEHPTR 

FIXEO  BIN, 

55 

56 

COVVEH  (4) 

CHAR  (750) 

57 

LOADVEN 

CHAR  (750) 

58 

59 

DECLARE 

1 AVEH1CLES 

STATIC, 

60 

2 STDCKN 

CHAR  (13), 

61 

2 DEVDESIG 

CHAR  (9). 
CHAR  (47). 

62 

2 DEVNAME 

63 

2 DEVCOST 

PICTURE  •( 

64 

2 CC80 

CHAR  (l), 

65 

66 

VCOST 

FIXED  OEC 

67 

VOVER 

CHAR  (80) 

68 

STATIC, 
STATIC. 

DEF  CARD 
STATIC, 
STATIC, 

NT.  K.  NSK 


POS  (70) 


/*  OVERALL  DESCRIPTOR  INDEX  */ 
/*  CKF.DESC. INDEX  */ 


&ASED 


(PCOV) 


DIRECT 
l)  ) ; 


/*  VEH  DESCRIPTOR  CARD  */ 
/♦  CKF.VDESC  */ 


BASED  ( PVV80 ) , 

STATIC, 

STATIC  INIT  ( ’ ABCDEFGH*  ), 

/*  VEH  DESCRIPTOR  FILE  */ 
/*  CKF.VEH.DESC  */ 


/*  VEHICLE  DIRECTORY  */ 
/*  CKF.VEH.DIR  */ 


BASED  ( PTVEH ) , 

BASED  ( PL VEH ) ; 

/*  ABBR.  VEH  FILE  */ 
/*  CKF.AVEHS  */ 


8)9V99' , 


(10,2)  STATIC, 
BASED  ( PV80 ) ; 


D.6-82 


TAEG  REPORT  NO.  40 


69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
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SOURCE  CARO  LISTING  FOR 
P8 : /*  VEHICLE  OATA/OESCRI PTOR  LOAD, 


DIRECTORY  - MON/24/ JAN/77  */ 


/*************«***********************/ 

START:  NO, 

J 


LP1 


NV,  TER,  NER, 
TOTD,  NFINO, 
0 *. 


NS, 

no6, 


PCOV  = 
PVV80 
PV80  » 
PTVEH 

NOIR  * 
NOD  * 
FVEHS 
CHVEH 
VEHPTR 


AOOR  (DINOEX)  I 
• ADOR  (VEHCARD) 
AOOR  (AVEHICLES) 
’ ADOR  (VEHOIR)  ; 


-l 

; 

> o 


/*  DIRECTORY  RECORD  POINTER  */ 
/*  DIRECTORY  LOAD  SS,  STARTS  AT 
/*  VEH  NUMBER  FLAG  TABLE  */ 

/*  VEH  DIRECTORY  */ 


2 */ 


OPEN  FILE  (MREF)  RECORD  UPDATE, 

FILE  (DIND)  INPUT, 

FILE  (VDATA)  RECORD  INPUT, 

FILE  (VCDESC)  RECORD  INPUT, 

FILE  ( DVEH ) RECORD  OUTPUT, 

FILE  (VDESCI  RECORD  OUTPUT, 

FILE  (VEHS)  RECORD  OUTPUT  ; 

ON  ENDFILE  (VCDESC)  GO  TO  EOFDESC  ? 

ON  ENDFILE  (VDATA)  GO  TO  EOFOATA  ; 

READ  FILE  ( MREF ) INTO  (MAST)  ; 

DO  J * 5 TO  8 : 

READ  FILE  (DINO)  INTO  (CARD)  KEY  (J) 
COVER  ( J - 4 ) * CARD  J 
END  LPl  ; 


/ft***********************************/ 

/*  VEHICLE  FILE  DATA  INPUT  PROCESSED  HERE  */ 

DISPLAY  ( • ' ) ; 

0 1 SPLAY  « ' INITILIZE  OF  VEHICLE  DATA  AND  DESCRIPTOR  FILES*  ) ; 
DISPLAY  ( * * ) ; 

DISPLAY  ( • NUM  STOCK  NUMBER  DESIGNATOR  DEVICE  • 

1 1 'NOMENCLATURE'  ) ; 

DISPLAY  < • • 

I I • • ) ; 

DISPLAY  ( • • ) J 

STEPl : READ  FILE  (VDATA)  INTO  (CARD)  ; 

NV  * NV  ♦ i ; 

GET  STRING  (CC7079)  EDIT  (VCOST)  ( F(10,2)  ) ; 

PUT  STRING  (CC7079 ) EDIT  (VCOST)  ( P'(8)9V99»  ) ; 

VOVER  = CARD  ; 

PUT  STRING  (DLINE)  EDIT 

( NV,  STOCKN , DEVDESIG,  DEVNAME  ) 

( F ( 3 ) • X ( 2 ) , A,  X ( 2 ) , A,  X ( 2 ) , A ) ; 

DISPLAY  ( DLINE  ) ; 

IF  I STOCKN  « YEVEH  ) THEN 
DUPS:  DO  J 

NV  » NV  - 1 ; 

DISPLAY  ( • • ) : 

DISPLAY  ( • **  DJPLICATE  STOCK  NUMBER  ON  PRECEEDING  CARD'); 

DISPLAY  ( • RECORD  WILL  BE  IGNORED  **•  ) ; 
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177 

178 
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180 
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P8 : /*  VEHICLE  DATA/DESCRIPTOR  LOAD,  DIRECTORY 

DISPLAY  ( ’ • 1 ; 

GO  TO  STEPl  ; 

END  DUPS  ; 

WRITE  FILE  (VEHS)  FROM  (CARD)  S 

YEVEH  = STOCKN  ; 

NDD  = NDD  ♦ 1 ; 

NOIR  = NDIR  «-  1 ; 

VEHPTR  (NDD)  = NDIR  ; 

CHVEH  (NDD)  = STOCKN  J 

GO  TO  STEPl  I 


M0N/2*/JAN/77  */ 


/*  HERE,  EOF 
EOFDATA:  VEHPTR 


ON  CARD  DATA  INPUT  DATASET  */ 

(1)  * NDD  ; /*  LAST  SS  USED  (1-ORGIN)  IN  DIR  */ 


LP2: 


DISPLAY  ( • • ) ; 

DISPLAY  ( •**  NOW  AT  EOF  ON  DATA  CARD  INPUT  **•  ) 


PUT  STRING  (DLINE)  EDIT 
(•  A TOTAL  OF  •. 
I A,  P‘Z,ZZ9‘,  A J 
DISPLAY  < DLINE  ) J 


NV,  • INPUT  CARDS  WERE  READ*  ) 


DO  J = 1 TO  * ; /♦  WRITE  OUT  DIRECTORY  */ 

PLVEH  = AODR  ( COVVEH(J)  ) ; 

WRITE  FILE  ( DVEH ) FROM  (LOADVEH)  ; 

END  LP2  J 

DISPLAY  ( • ' ) 5 

DISPLAY  ( •**  VEHICLE  DIRECTORY  HAS  BEEN  SUCCESSFULLY  • 
II  ‘REWRITTEN*  ) ; 

REFS  (7)  = NV  - 1 *, 

REFS  (8)  * NDD  ; 


/m************* ************** *********/ 

/*  INITILIZE  START  OF  DESCRIPTOR  LOAD  HERE  ♦/ 

DISPLAY  ( • • ) ; 

DISPLAY  ( •**  LOAD  OF  VEHICLE  DESCRIPTOR  FILE  FOLLOWS  ) 

DISPLAY  ( • ‘ ) ; 

DISPLAY  ( ‘STOCK  NUMBER  DEVICE  DESCRIPTORS*  ) ; 

DISPLAY  ( • • ) ; 

DISPLAY  ( • ' ) ; 

READ  FILE  (VCDESC)  INTO  (VEHCARO)  ; 

ND  * 1 ; 

GO  TO  STEP3  *, 

/*  HERE  IS  THE  DESCRIPTOR  LOAD  LOOP  ♦/ 

STEP2 : READ  FILE  (VCDESC)  INTO  (VEHCARD)  ; 

ND  * NO  ♦ 1 J 

IF  ( VSN  = YEVEH  ) THEN 
LP3 : DO  ; 

NSK  » 1 ; 

GO  TO  STEP*  ; 

END  LP3  ; 

WRITE  FILE  (VDESC)  FROM  (VEHDESC)  l 
NS  « NS  ♦ l *, 
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PAGE  NUMBER 
SOURCE  CARD  LISTING  FOR 


P8  s 
STEP3 : 


LP5 ! 


LP5EN0: 


STEP4 : 


LP4 : 


/*  VEHICLE  DATA/DESCRIPTOR  LOAD.  DIRECTORY  - MON/24/ JAN/77  */ 


YEVEH  * VSN  ; 
TOTD  * TOTD  ♦ 
VTAB  = 0 : 
VEHDS  * VSN  J 
NSK  * 2 


DO  J = 1 TO  NOD  ; /*  SEE  IF  MATCHING  DATA  AVAILABLE  */ 

IF  ( VSN  -*  CHVEH ( J ) ) 

NFIND  = NFIND  ♦ 1 


FVEHS  (J)  « 1 . 
GO  TO  STEP4 

END  LP5  ; 


THEN  GO  TO  LP5END 

t 


NOD  = NOD  ♦ 1 ; 
NODATA  (NOO)  * VSN 


DLINE  = 
DISPLAY 


VSN  I | • 

( DLlNE  ) 


VEHNUMS 


GVNS  * 0 ; 
GET  STRING 


(VEHNUMS)  EDIT  (GVNS)  ( 22  ( F(2),  X ( 1 ) ) ) 


•NT  = o ; 

DO  J = 1 TO  22  i 
NTEST  - GVNS  (J)  : 

IF  ( NTEST  » 0 ) THEN  GO  TO  ENDLP4  ; 

NT  » NT  ♦ 1 J 

IF  ( PDESC  ( NTEST ) — 0 ) THEN  GO  TO  STEP5  *. 

NER  * NER  ♦ 1 J 
01  SPLAY  ( • • ) ; 

PUT  STRING  (DLINE)  EDIT 

( •**  ERROR  IN  VEH  VSN.  •-  DESCRIPTOR  SUBSCRIPT 

NTEST,  • DOES  NOT  EXIST  **•  ) 

( A.  A,  A,  F ( 4 ) . A ) J 
DISPLAY  { DLINE  ) ; 


IF 


( NER  > 100  ) THEN  GO  TO  EOJ 
GO  TO  EN0LP4  ; 


STEP5: 
ENDLP4 : 


VTAB  (NTEST) 
END  LP4  ; 


PDESC  (NTEST) 


GO  TO  STEP2  J 

/*  HERE  IS  EOF  ON  DESCRIPTOR  CARD  INPUT  */ 

EOFDESC:  WRITE  FILE  (VDESC)  FROM  ( VEHDESC ) ; 
NS  » NS  ♦ l ; 


REFS  (9)  « 
REFS  ( 10) 


DISPLAY 

DISPLAY 


NS  ; 

■ no  ; 

• • ) ; 

'**  EOF  REACHED  ON  DESCRIPTOR  CARD  INPUT  FILE  **• 


DISPLAY  ( • • ) J 

PUT  STRING  (DLINE)  EDIT 

( • TOTAL  NUMBER  DESCRIPTOR  CARDS 

ND  ) < A,  P' 2, ZZ9'  ) ; 

DISPLAY  ( DLINE  ) ; 


INPUT 


PUT  STRING  (DLINE)  EDIT 

( • TOTAL  NUMBER  UNIQUE  VEHICLE  STOCK  NUMBERS 
TOTD  ) < A,  P * Z » ZZ9'  ) ; 

DISPLAY  ( DLINE  ) 5 

PUT  STRING  (DLINE)  EDIT 

( 'TOTAL  MATCHES  FOUNO  IN  VEHICLE  DATA  DIRECTORY 
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PAGE  NUMBER  : 5 

SOURCE  CARO  LISTING  FOR 

P8:  /*  VEHICLE  DATA/DESCRI PTOR  LOAD,  DIRECTORY 

NFIND  ) ( A,  P'Z,ZZ9'  ) i 

DISPLAY  ( DLINE  ) I 


MON/ 24/ JAN/ 77  */ 


/*************************************/ 

/*  ANY  REQUIRED  DIAGNOSTICS  OUTPUT  IN  THIS  SECTION  */ 

IF  ( NFIND  » NV  ) THEN  GO  TO  STEP6  ; 

/*  HERE  DESCRIPTOR  / DATA  MISMATCHES  PRINTED  */ 

DISPLAY  ( • • ) ; DISPLAY  ( ' • ) ; 

DISPLAY  ( •**  THE  FOLLOWING  OATA  FILE  VEH  NUMBERS'  I ; 

DISPLAY  ( • HAVE  NO  MATCH  IN  THE  VEH  DESCRIPTOR  INPUT  ) J 

DISPLAY  ( • • ) J 

K * 0 ; 

LP6:  DO  J * 1 TO  NOD  } 

IF  ( FVEHS(J)  ■ 1 ) THEN  GO  TO  LP6EN0  ; 

K » K ♦ 1 ; 

DISPLAY  ( ( 5 ) • • II  CHVEHI J)  I ; 

LP6END:  END  LP6  5 

/*  HERE,  DESCRIPTOR  VEH  NUMS  W/0  MATCHING  DATA  FILE  ENTRIES 
ARE  PRINTED  - IF  ANY  */ 

STEP6:  IF  ( NOD  » 0 ) THEN  30  TO  BITTERENO  ; 


DISPLAY  ( • ' ) i DISPLAY  ( • • ) : 

DISPLAY  ( •**  THE  FOLLOWING  DESCRIPTOR  CARD  VEH  NUMBERS'  ) ; 
DISPLAY  ( ' HAVE  NO  MATCH  IN  THE  VEH  DATA  FILE  **•  ) • 
DISPLAY  ( • • ) J 

LP7 : DO  J * 1 TO  NOD  5 

DISPLAY  ( (5)'  ' II  NODATAI J ) ) J 
END  LP7  ; 

/I************************************/ 

/*  HERE  AM. THE  WINDUP  */ 

BITTEREND: 

REWRITE  FILE  ( MREF ) FROM  (MAST)  ; 

EOJ:  CLOSE  FILE  (MREF),  FILE  (VDATA),  FILE  (VCOESC), 


FILE  (DIND),  FILE  (VDESC), 

FILE  (DVEH),  FILE  (VEHS)  J 

DISPLAY  ( • ' ) S 

DISPLAY  ( 'VEHICLE  &ATA/DIRECTORY/DESCRIPTOR  LOAD  PROGRAM*  ) ; 
DISPLAY  ( • IS  NOW  TERMINATING'  ) ! 

DISPLAY  ( • ' ) J 

END  PS  ; 
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1 

2 
3 
A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1A 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2 A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 

38 

39 
AO 

X\ 

A3 

AA 

A5 

A6 

A7 

A8 

A9 

50 

51 

52 

53 
5 A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6A 

65 

66 

67 

68 


P8 A : /*  ABBREVIATED  VEHICLE  FILE  LISTINGS  - WED/2/FEB/77  */ 

PROC  (INPARM)  OPTIONS  (MAIN)  ; 

/*  REVISIONS  : 

WE0/02/ FEB/77  - FIRST  IMPLEMENTATION. 

SUN/ 20/ MAR/77  - MODS  PRIOR  TO  INSTALLATION  AT  NCSS. 


*/ 

DECLARE  ( 


DIND,  VEHS  ) FILE  RECORD  DIRECT 

KEYED  ENV  ( REGIONAL ( 1 ) ). 


•ITEM 


INPARM 
1 POVER 
2 PARM 
2 PARM2 

VCOST 

DLINE 

D2 

CARD 

Tl 

STOCK-NUMBER 
T 2 


CHAR  ( 100)  VARYING* 

BASED  (PP), 

CHAR  ( 1) , 

CHAR  (A), 

FIXED  DEC  (10,2)  STATIC, 
CHAR  (80)  STATIC, 

CHAR  (2)  DEF  DLINE  POS  (1), 
CHAR  (80)  STATIC, 


CHAR  ( A6 ) 
DESIGNATOR 


STATIC  INI T ( 
VEHICLE  COST* 


CHAR  ( A6 ) STATIC  INIT  ( 


•PAGE 


T3 

XXXX  • 
T3P 


CHAR  ( 11)  STATIC  INIT  ( 
PICTURE  * ZZZ9 • DEF  T3  POS 


), 

), 

(8) 


ELINE 

'**  ERROR  XX  OCCURED 
ENO 
ENREC 


CHAR  ( 39)  STATIC  INIT  ( 

NREC  WAS  XXXXX  **•  ), 

PICTURE  '99*  DEF  ELINE  POS  (10), 
PICTURE  * It  119*  DEF  ELINE  POS  (32), 


( DISP,  PTR,  NPAGE , DPAGE,  LT,  JKEY , L,  LP,  NC,  NREC, 

MAXC,  MAXIND,  MAXLT , MAXLTA,  MAXLTB,  MAXSS,  MAXVEH, 
J,  K ) FIXED  BIN  STATIC  ; 


/*************************************/ 


DECLARE  1 DINDEX 

2 DST  ART 
2 
2 
2 
2 


DEND 
NCAT 
NDESC 

CATEGORIES 
3 PCAT 
3 SCAT 
3 ECAT 


STATIC. 
FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN, 
*15)* 

FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN, 


/♦  OVERALL  DESCRIPTOR  INDEX  */ 
/*  CKF.DESC. INDEX  */ 


2 PDESC  (111)  FIXED  BIN, 


COVER  (A) 

DECLARE  l MAST 

2 REFS  (AO) 
MREF 

OECLARE  1 VEHOIR  (200) 
2 CHVEH 
2 VEHPTR 
COVVEH  (A) 

LOAD VEH 


CHAR  (80)  BASED  (PCOV) 

STATIC, 

FIXED  BIN, 

FILE  RECORD  ; 


STATIC, 

CHAR  (13), 

FIXED  BIN. 

CHAR  (750)  BASED  ( PTVEH ) , 
CHAR  (750)  BASEO  ( PLVEH ) 


/*  VEHICLE  DIRECTORY  */ 
/*  CKF.VEH.DIR  */ 


OECLARE  1 


AVEHICLES 
2 STOCKN 
2 DEVDESIG 


STATIC, 
CHAR  (13), 
CHAR  (9), 


/*  ABBR.  VEH  FILE  */ 
/*  CKF.AVEHS  */ 
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69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
8L 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 


2 DEVNAME 
2 DEVCOST 
2 CC80 
VOVER 


CHAR  (47). 

PICTURE  • i 8 ) 9V99 • » 

CHAR  111, 

CHAR  (80)  BASED  (PV80) 


/********«**********«*****************/ 

START: 


NPAGE » DPAGEy 
J,  K = 0 

LT  * 100  : 
MAXLT  = 60  5 
JKEY  = 1 ; 


NC( 

« 

t 


/*  DISPLAY  PAGE  LINE  COUNT  */ 

/*  MAX  * LINES  ON  DISPLAY  */ 

/*  SS  IN  DIRECTORY  FOR  EXTRACT  - 

NOTE  - SKIPS  FIRST  LOC  VEHPTR(l)  */ 


PP  » ADDR  ( INPARM)  ; 

PV80  - ADDR  (AVEHICLES)  ; 

PTVEH  * ADDR  ( VEHDIR)  ; 

PCOV  « ADDR  (OINDEX)  ; 

COMMENCE: 

OPEN  FILE  ( MREF ) RECORD  INPUT, 

FILE  (DIND)  INPUT, 

FILE  (VEHS)  INPUT, 

FILE  ( DVEH ) RECORD  INPUT  ; 

READ  FILE  (MREF)  INTO  (MAST)  J 
MAXVEH  * REFS  (7)  ; 

MAXC  = REFS  (4)  ; 

IF  ( PARM  * • B'  ) THEN  GO  TO  BSETUP  ; 

ASETUP:  MAXSS  * REFS  (8)  ; /*  HERE,  PLAN  FOR  ABBREVIATED  DATA  FILE  */ 

DIRLOAD:  DO  J * l TO  4 ; 

PLVEH  * ADDR  ( COWEH(J)  ) i 
READ  FILE  (DVEH)  INTO  (LOADVEH)  ; 

END  DIRLOAD  ; 


MAXLTA 


MAXLT  - 3 ; 
GO  TO  FIRST 


BSETUP: 


/*  SETUP  FOR  DESCRIPTOR  LIST  */ 
INTO  (CARD)  KEY  (J)  ; 

' CARD  ; 


DO  J » 5 TO  8 ; 

READ  FILE  (DINO) 

COVER  ( J - 4 ) 

END  BSETUP  J 

MAXIND  - REFS  (4)  ; 

NREC  » DSTART  - 1 ; 

MAXLTB  - MAXLT  - 2 ; 

/ft**:*********************************/ 

FIRST:  DISP,  PTR  = 1 ; f*  DEVICE  ASSIGNMENTS  CHECKED  HERE  */ 

IF  ( PARM2  « * BOTH*  ) THEN  GO  TO  STEP1  . 

IF  ( PARM2  * ‘TERM*  ) 

THEN  PTR  * 2 J 
ELSE  DISP  » 2 J 

STEP1 : LT,  LP  * 100  ; 

/*  HERE,  PRINTER  DATASET  IS  INITILIZED  */ 

IF  ( PTR  * 2 ) THEN  GO  TO  STEP4  ; 

OPEN  FILE  (SYSPRINT) 
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165 

166 
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171 
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173 

174 
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176 

177 

178 

179 
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162 

183 

184 

185 
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P8A:  /*  ABBREVIATED  VEHICLE  FILE  LISTINGS  - HED/2/FEB/77  */ 

PAGES  1 ZE  (58)  LINESIZE  (120)  ; 

ON  ENDPAGE  (SYSPRINT) 

BEGIN  ; 

NP AGE  - NPAGE  ♦ 1 


IF  ( PARM  * *8' 


) THEN  GO  TO  STEP2  ; 


PJT  EDIT  ( 'PAGE  NO  : • , NPAGE,  Tl,  T2,  • 

( PAGE,  L INE ( 2 ) , X(10).  A.  F(4). 

2 ( SKI  PI  II,  X(10),  A (46)  ),  SKIP  1 1 ) , 
GO  TO  STEP3  ; 


A ) 


STEP2: 


STEP3 : 


PUT  EDIT  ( 'PAGE  NO  : • , NPAGE. 

•***  LISTING  OF  DESCRIPTOR  CATEGORIES  AS', 

• APPLIED  TO  VEHICLE  DATA  ***' , • ' ) 

( PAGE,  LINE ( 5 ) • X(20),  A.  F(2). 

SKI P( 3 ) » X ( 20 ) » A,  SKI P ( 1 ) , X(20),  A, 

SK I P ( 3 ) , A ) ; 


PUT  SKIP 
END  ; 


(1) 


SIGNAL  ENDPAGE  (SYSPRINT)  ; 

/*  HERE,  DISPLAY  DATASET  SETUP,  IF  REQUIRED  */ 
STEP4:  IF  ( OISP  * 2 ) THEN  GO  TO  LOOP  5 


LP1 


ON  CONDITION  (NEWOP) 

BEGIN  ; 

IF  ( LT  < 61  ) THEN  LT 

IF  ( LT  < 66  ) THEN 

DO  L = LT  TO  66  ; 
0 1 SPLAY  ( • • ] 

END  LPl  ; 

DISPLAY  < • • ) ; 

DP AGE  * DPAGE  ♦ 1 ; 

T3P  = DPAGE  ; 

DISPLAY  ( T3  ) 

DISPLAY  ( • 

4 J 


61 


TTLA: 


t 


LT 
PARM 


) 


• 'A' 

• ITEM 

• ..... 

I fl 

3 ; 


) THEN 

STOCK  NUM 


) 


IF 
DO 

DISPLAY  ( 

DISPLAY  ( 

DISPLAY  ( 

LT  - LT  ♦ 

END  TTLA 

END  : 

SIGNAL  CONDITION  ( NEWDP ) *. 

/****** ************ ****** *************/ 


DESIGNATOR 


DEVICE  COST'  ) 
, ) 


/*  HERE  IS  MAIN  PROGRAM  LOOP  */ 

LOOP:  IF  ( PARM  -»■  • B ' ) THEN  GO  TO  STEP5  ; 

/*  HERE,  PRINT  SETUP  FOR  B-OPTION  - VEHICLE  DESIGNATORS  */ 
BLOOP:  NREC  =*  NREC  ♦ 1 ; 

ER1 : IF  ( NREC  > MAXC  ) THEN  GO  TO  BUSTl  : 

READ  FILE  (DIND)  INTO  (DLINE)  KEY  (NREC)  : 

GO  TO  STEP6  ; 
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SOURCE  CARD  LISTING  FOR  , 

P8A : /*  ABBREVIATED  VEHICLE  FILE  LISTINGS  - WED/2/FEB/77  */ 

/*  HERE,  SETUP  FOR  A-OPTION,  VEHICLE  DATA  PRINT  */ 

STEP5:  JKEY  * JKEY  ♦ 1 J 

IF  ( JKEY  > MAXSS  > THEN  GO  TO  EOF AB  ; 

NREC  * VEHPTR  (JKEY)  : 

ER2 : IF  ( NREC  > MAXVEH  ) THEN  GO  TO  BUST2  : 

READ  FILE  (VEHS)  INTO  (AVEHICLES)  KEY  (NREC)  ; 

NC  « NC  ♦ 1 ; 

/♦♦♦♦♦♦•♦♦♦♦♦♦A***********************/ 

/*  NOW,  OUTPUT  THE  NEW  LlNE(S)‘,  FIRST  TRY  DISPLAY  */ 


STEP6: 


LP2 : 


IF 

IF 


( DISP  = 


( 


PARM  * 
DO  ; 

IF  ( LT 
DISPLAY 


2 ) 

•A* 

> 

( 


THEN  GO  TO  STEP7 
) THEN 


MAXLTA  ) 
• ' ) 


THEN  SIGNAL  CONDITION  (NEWDP) 


PUT  STRING  (DUNE) 
( NC,  STOCKN, 
( F ( 4 ) , X ( 2 ) , 


EDIT 
OEVDESIG 
A ( 13 ) , 


X ( 2 ) , P'$i*,*$$,$S9.V99l 

DISPLAY  (DLlNE)  ; 


u.  DEVCOST  ) 
X ( 2 ) « A ( 9 ) , 


IF 

IF 


DISPLAY  ( (10)'  • ||  DEVNAME  ) 

LT 
END 

LT  > MAXLTB 


‘ LT 
GO 
LP2 


♦ 3 ; 

TO  STEP7 

# 
t 


) 


PARM  * 'B* ) t ( (D2 
THEN  00  *,  DISPLAY  ( 
DISPLAY  ( DLINE  ) 5 


THEN  SIGNAL  CONDITION  (NEWDP) 
| ( D2 


i • **•  ) 
• i 


LT 


) ) 

* LT  ♦ l 


END 


LT 

/*  HERE, 


STEP7: 


LP3 : 


IF 

IF 


■ LT 
TRY 
PTR 


♦ i ; 

FOR  PRINTER  OUTPUT  */ 


PARM 
DO  ; 


2 ) THEN  GO  TO  TALLY 
> * B ' ) THEN 


IF  ( (02 


•**•)  I 
THEN  PUT  SKIP 


( D2 
(2) 


) ) 


PUT 

END 


EDIT  ( DLINE 
GO  TO  TALLY 
LP3  ; 


) ( SKIP(l),  XllO),  A ( 80 ) ) 


PUT  EDIT  C NC.  STOCKN,  OEVDESIG,  DEVCOST, 
( SK I P ( 2 ) , X ( 10) , F ( 4 ) » X ( 2 ) » A l 1 3 ) 


DEVNAME  ) 

X ( 2 ) * A ( 9) , 


3MKICI,  M IUI  I riHI  I Al  CM  Altai,  M l , « 

X ( 2 ) , P($i$,$$i,$S9.V99' , X ( 3 ) , A(47)  ) ; 

/*  HERE,  RECYCLE  FOR  NEXT,  IF  REQUIRED  */ 

TALLY:  IF  ( PARM  * 'A*  ) THEN  GO  TO  STEP5  ; 


TALLYB:  IF  ( 


NREC  >»  DEND  ) 
THEN  GO  TO  EOFAB 
ELSE  GO  TO  LOOP  ; 


# 
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276 

277 

278 

/* 

MAX  KEYS  EXCEEDED 

ERRORS 

PROCESSED  HERE  */ 

279 

280 

BUST1 : 

ENO  « l ; 

281 

GO  TO  ERCOM  ; 

282 

BUST2 : 

ENO  • 2 ; 

283 

28* 

ERCOH: 

ENREC  * NREC  ; 

285 

286 

IF  { DISP  * 2 ) 

THEN 

287 

LP*: 

DO  ; 

288 

01  SPLAY  « 

1 1 

) ; 

289 

DISPLAY  ( 

• • 

) ; 

290 

01  SPLAY  ( 

ELINE  ) 

• 

t 

291 

DISPLAY  ( 

1 * 

) ; 

292 

END  LP*  ; 

293 

29* 

IF  ( PTR  - 1 ) 

THEN 

295 

PUT  LIST  ( 

ELINE 

) SKIP  (3)  ; 

296 

297 

298  /*******  *******  ****4141*  *******  *********/ 

299 

300 

301  /*  YE  OLOE  WINDUP  HERE  */ 

302 

303  EOFAB:  CLOSE  FILE  (HREF),  FILE  (DIND),  FILE  (VEHS), 

30*  FILE  ( DVEH)  ; 

305 

306  END  PSA  ; 


* 
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1 

2 
3 
A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


P9: 


/* 


*/ 


/*  TASK  DATA/OESCR/OI RECTORY  LOAD  - FRI /28/ JAN/77  */ 
PROC  OPTIONS  (MAIN)  ; 

REVISIONS  : , 

FRI / 28/ JAN/77  - INITIAL  INSTALLATION. 

WED/02/ FEB/77  - CORRECTIONS  TO  FIX  DATA  LOAO. 

FR I / 18/ MAR/77  - MODS  PRIOR  TO  INSTALLATION  AT  NCSS. 


DECLARE  CARD  CHAR 

CC7079  CHAR 

DLINE  CHAR 

0L4  CHAR 

( DISP,  PRTR.  NPAGE 

F TASKS  ( 1200)  FIXED  _ 

NODATA  (1200)  CHAR  (13)  STATIC, 

( ND,  NV,  NT,  K,  NSK,  TOTD,  NS, 

NTEST,  TER,  NER,  NOD,  NFIND, 
NDIR,  J ) FIXED  BIN  STATIC  ; 


(80)  STATIC. 

( 10)  OEF  CARD  POS  (70) 
(80)  STATIC, 

(4)  OEF  DLINE  POS  (1), 
) FIXED  BIN  STATIC, 
BIN  STATIC, 


NOD,  NL I ST, 


DECLARE  1 


OINDEX 
2 DST  ART 
2 DEND 
2 NCAT 
2 NDESC 
2 CATEGORIES 
3 PCAT 
3 SCAT 
3 ECAT 

2 PDESC  (111) 
COVER  (4) 


STATIC, 
FIXED  BIN, 
FIXED 
FIXED 
FIXED 
(15), 

FIXEO 
FIXED 
FIXED 
FIXED 


BIN, 

BIN, 

BIN, 


/*  OVERALL  DESCRIPTOR  INDEX  */ 
/*  CKF.DESC. INDEX  ♦/  • 


BIN, 

BIN, 

BIN, 

BIN 


DECLARE  1 MAST 

2 REFS  (40) 


CHAR  (80) 

STATIC, 
FIXEO  BIN, 


&ASED 


(PCOV) 


DIND  FILE  RECORD  DIRECT 

KEYEO  ENV  ( REGIONAL! 1)  ) ; 


I*************************************/ 


DECLARE 

l TOATACARD 
2 F13 
2 JTTL 
2 FILL 
2 BCD ST 
2 FILL2 

STATIC, 
CHAR  (13), 
CHAR  (50), 
CHAR  (6). 
CHAR  ( 10), 
CHAR  ( 1) , 

TOVER 

TCOST 

CHAR  (80)  BASED  (PT080), 
FIXED  DEC  (10,2)  ; 

DECLARE 

1 TASKCARD 
2 TASKN 
2 TASKNUMS 

STATIC,  /♦  TASK  DESCRIPTOR 

CHAR  (13),  /*  CKF.TDESC  */ 

CHAR  (67), 

CARDS  */ 

1 TASKOVER 
2 RATING 
2 RANK 
,2  JOBTASK 

BASED  (PTO), 
CHAR  (5), 
CHAR  (2), 
CHAR  (6), 

TASK80 
TVNS  (22) 
YETASK 

CHAR  (80)  BASED  ( PTT80 ) , 

FIXED  BIN  STATIC, 

CHAR  (13)  STATIC  INIT  ( • ABCDEF • 

) ; 

DECLARE 

l TASKDESC 

STATIC,  /*  TASK  DESCRIPTOR 

FILE  */ 
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111 
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113 

114 
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P9: 


/*  TASK  DAT A/DESCR/ DIRECTORY  LOAD  - FRI/28/JAN/77  ♦/ 


69 

2 TASKDS 

CHAR  ( 13), 

/* 

CKF.TASK.DESC  */ 

70 

*7  \ 

2 TTAB  (100) 

FIXED  BIN  : 

l\ 

DECLARE 

1 TASKDIR  (1200)  STATIC, 

/* 

JOBTASK  FILE  DIRECTORY 

73 

2 CHTASK 

CHAR  I 13), 

/* 

CKF. TASKS. DIR  */ 

74 

75 

76 

2 TASKPTR 

FIXED  BIN, 

COVTASK  (12) 

CHAR  ( 1500) 

BASED 

(PTTASK) , 

77 

78 

79 

LOADTASK 

CHAR  1 1500) 

BASED 

( PLTASK ) J 

DECLARE 

1 ATASKS 

STATIC, 
CHAR  ( 7) , 

/♦ 

ABBR.  TASK  FILE  */ 

80 

2 RATING 

/* 

CKF. ATASKS  */ 

81 

2 JOBTASK 

CHAR  (6). 

82 

2 TASKTTL 

CHAR  150), 

83 

2 FILL 

CHAR  (6). 
PICTURE  * (8 

84 

2 BILCOST 

)9V99' , 

t 

85 

2 CC80 

CHAR  ( l ) ; 

/I************************************/ 

» 

START:  N0»  NV,  TER,  NER,  NS. 

t5to,  NFIND,  N0&, 

J * 0 ; 

PCOV  - ADDR  (DINDEX)  ; 

PTT80  = ADDR  I T ASKCAR  D ) J 
PTTASK  * ADDR  (TASKDIR)  ; 

PT080  - ADDR  (ATASKS)  J 
PTO  * ADDR  (TDATACARD)  ; 


NDIR  * 
NDD  = 1 
FTASKS 
CHTASK 
TASKPTR 
NLIST  « 


-1 


? j 
■ o ; 


/*  DIRECTORY  RECORD  POINTER  */ 

/*  DIRECTORY  LOAD  SS,  STARTS  AT  2 */ 
/*  TASK  FLAG  TABLE  */ 

/*  TASK  DIRECTORY  PRELIMINARY  FILL  */ 
/*  PRINTER  TITLE  CONTROL  */ 


OPEN  FILE  (HREF)  RECORD  UPDATE, 


FILE 
FI  LE 


(DIND) 

Itdatai 


ine8o<o 


RECORD  INPUT, 

FILE  ( TCDESC ) RECORD  INPUT, 

FILE  ( DTASK ) RECORD  OUTPUT, 

FILE  ( TDESC ) RECORD  OUTPUT, 

FILE  (TASKS)  RECORD  OUTPUT  J 

ON  ENOFILE  (TCDESC)  GO  TO  EOFDESC  J 
ON  ENDFILE  ( TDATA ) GD  TO  EOFDATA  ; 

READ  FILE  ( MREF ) INTO  (MAST)  ; 

DO  J » 9 TO  12  I 

READ  FILE  (DIND)  INTO  (CARD)  KEY  (J)  ; 

COVER  ( J - 8 ) * CARD  J 
END  L PI  ; 

DISPLAY  ( • • ) J 

DISPLAY  ( 'TASK  DATA/DIRECTORY/DESCRIPTOR  LOAD' 

II  • PROGRAM  IS  NOW  STARTING*  ) ; 

/*************************************/ 

/♦  PRINTER/TERMINAL  REQUIREMENTS  SETUP  IN  THIS  SECTION  */ 


LPl : 


NPAGE  * 0 I 
DISP,  PRTR 


1 


TPl : 


DISPLAY  ( • ' ) ; 

DISPLAY  ( 'OUTPUT  TO  GO  TO  TERMINAL,  OFFLINE  PRINTER,' 
II  ' OR  BOTH?'  ) ; 
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173 

174 
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176 

177 

178 

179 
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PAGE  NUMBER 


SOURCE  CARD  LISTING  FOR 
P9: 


TP2: 


OPRTR : 
SPRTR : 


/*  TASK  OAT  A/DE SCR/ DIRECTORY  LOAD  - FR I /20/ JAN/77  •/ 

DISPLAY  I 'ENTER  TERM,  PRTR , BOTH,  OR  QUIT'  ) REPLY  (DLINE)  ; 


IF 

IF 

IF 

IF 


DL4 

DL4 

DL4 

DL4 


•TERM' 

•PRTR' 

•BOTH' 

•QUIT' 


) THEN  GO  TO  STERM  ; 
) THEN  GO  TO  OPRTR  ; 
) THEN  GO  TO  SPRTR  ; 
) THEN  GO  TO  FEND  ; 


DISPLAY 

DISPLAY 

DISPLAY 

GO 


( • ' ) ; 

( 'UNABLE  TO  DETERMINE  ENTRY  TYPE  - TRY  AGAIN'  ) 
( ' • ) ; 

TO  TP2  ; 


DISP 
OPEN 
ON 


= 2 i 
FILE 


(SYSPRINT)  LINESIZE  1120)  PAGESIZE  (60) 
(SYSPRINT) 


ENDPAGE 
BEGIN  ; 

NPAGE  * NPAGE  ♦ 1 J 
IF  ( NLIST  = 2 ) THEN 


GO  TO  TILL2  J 


PUT 


EDIT  ( 
JNUM 


•PAGE  NUMBER 
RATE  RANK 


: '.  NPAGE. 

TASK  TASK  TITLE  J • 


( 


PAGE.  X(10),  A,  F ( 4 ) , 
SKIPI2),  XI10),  A,  2 ( 
GO  TO  SKP  ; 


SKIP ( l ) , X(10),  A ) ) 


TTLL2 : 

SKP: 

STERM: 

STARTP: 


PUT  EDIT  ( 'PAGE  NUMBER  : *.  NPAGE, 
' NUH  DESCRIPTOR  CARD', 


( PAGE.  X(10),  A,  F ( 4 ) , 

SKIPI2),  X<10),  A,  2 ( SKIP(l),  X(10), 


A ) ) 


PUT  SKIP 
END  ; 


(l)  ; 

GO  TO  STARTP 


PRTR  ■ 2 I 
IF  ( DISP 


2 ) THEN  GO  TO  PROCESS 


DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 


•** 


• ) ; 
LOAD  OF 


TASK  ABBREVIATED  DATA  FILE  FOLLOWS'  ) 


' ' ) ; 

•NUMBER  RATE  RANK  TASK 
• 

• • 1 ; 


TASK  TITLE' 
, 


/*************«***********************/ 

/*  TASK  ABBREVIATED  FILE  DATA  LOADED  HERE  */ 

PROCESS: 

IF  ( PRTR  * 1 ) THEN  SIGNAL  ENDPAGE  (SYSPRINT)  ; 

IF  ( PRTR  = 1 ) THEN 

PUT  LIST  ( •*•  LOAD  OF  TASK  DATA  FILE  FOLLOWS  **•  ) SKIP  (2) 

IF  < PTR  » 1 ) THEN  PUT  SKIP  (3)  ; 

STEP1 : READ  FILE  ( TDAT A ) INTO  (TDATACARD)  ; 

NV  * NV  ♦ 1 ; 

GET  STRING  (BCOST)  EDIT  (TCOST)  ( FC10.2)  ) 5 

PUT  STRING  (BCOST)  EDIT  (TCOST)  ( PM8I9V99*  ) ; 

IF  ( PRTR  = 1 ) THEN 

PUT  EDIT  ( NV,  TASKOVER. RATING,  TASKOVER. RANK, 
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P9: 

/*  TASK  DATA/ DE SCR/ 01  RECTORY  LOAD  - FRI/28/JAN/77  */ 

• 

207 

TASKOVER . JOBTASK , JTTL , BCOST  ) 

208 

( SKIP(l),  X(10),  F ( * ) , X ( 3 ) » A(  5 ) » X(2),  A(2),  X(2), 
AI6).  X i 2 ) , A ( 50) * X l 3 ) * At  10)  ) J 

209 

210 

211 

IF  ( DISP  * 2 ) THEN  GO  TO  S1A  ; 

212 

PUT  STRING  (DLINE)  EDIT 

213 

21* 

( NV,  TASKOVER. RATING,  TASKOVER. RANK, 
TASK OVER. JOBTASK,  JTTL  T 

215 

( P'ZZ.ZZ  9*.  X(  2 ) , A,  XU),  A,  X(l)f  A,  X(2),  A ) ; 

216 

DISPLAY  I DLINE  ) ; 

217 

218 

S1A: 

IF  ( FI  3 * YETASK)  THEN 

219 

OUPS: 

00  ; 

220 

NV  * NV  - 1 ; 

221 

222 

IF  ( PRTR  « 1 ) THEN 

223 

PJT  EDIT  ( •**  DUPLICATE  RATING/RANK/TASK  ON  THE  '. 

•PRECEEDING  CARD,',  • RECORD  WILL  BE  IGNORED  **•  ) 

22* 

225 

( SKIPI2),  A,  A,  SKIP(l),  A ) ; 

226 

227 

IF  ( DISP  « 2 ) THEN  GO  TO  STEPl  i 

228 

DISPLAY  ( • ' ) ; 

229 

DISPLAY  ( •**  DUPLICATE  RATING/RANK/TASK  ON  THE  • 

230 

1 1 'PRECEEDING  CARD, • ) J 

231 

DISPLAY  I • RECORD  HILL  BE  IGNORED'  ) J 

232 

DISPLAY  ( • ' ) i 

233 

23* 

GO  TO  STEPl  ; 

235 

END  DUPS  J 

236 

237 

WRITE  FILE  (TASKS)  FROM  (TDATACARD)  ; 

238 

YETASK  * FI 3 ; 

239 

NOD  ■ NOD  ♦ 1 5 

2*0 

NDIR  ■ NO I R ♦ 1 J 
CHTASK  ( NDD ) ■ F13  ; 

2*1 

2*2 

TASKPTR  (NDD)  - NDIR  ; 

• 

2*3 

2** 

2*5 

GO  TO  STEPl  ; 

2*6 

/*  HERE,  EOF  ON  CARO  DATA  INPUT  DATASET  */ 

2*7 

2*8 

EOFOATA 

: TASKPTR  (1)  - NDD  ; 

2*9 

250 

251 

LP2 : 

03  J - 1 TO  12  ; 

PL  T ASK  « ADDR  (COVTASK(J)  ) : 

WRITE  FILE  ( DTASK ) FROM  (LOADTASK)  ; 

252 

253 

END  LP2  ; 

25* 

255 

DISPLAY  ( • ' ) 5 

256 

DISPLAY  ( •**  EOF  ON  DATA  INPUT  FILE,  • ) ; 

257 

PUT  STRING  (DLINE)  EDIT 

258 

( • CARDS  PROCESSED  : ',  NV,  ' **•  ) 

259 

( A.  P'ZZ.Z Z9',  A ) ; 

260 

DISPLAY  ( DLINE  ) : 

261 

262 

DISPLAY  ( • ' ) ; 

263 

DISPLAY  ( •**  LOAD  OF  TASK  DESCRIPTOR  CARDS  FOLLOWS  **'  ) ; 

26* 

DISPLAY  ( • ' ) ; 

265 

266 

REFS  (11)  » NV  - 1 ; 

267 

REFS  (12)  * NDD  ; 

268 

269 

270 

271 

272 

273 
27* 
275 

/*************************************/ 

/*  INITIL1ZE  START  OF  DESCRIPTOR  LOAD  HERE  */ 

IF  ( PRTR  * 2 ) THEN  GO  TO  PHAZE2  ; 
NLIST  * 2 ; 

• 
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305 

306 

307 

308 
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319 
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344 


SOURCE 

P9: 


CARD  LISTING  FOR 

/*  TASK  OAT A/ DE SCR/ 01 RECTORY 


LOAO  - FRI/28/JAN/77  */ 


SIGNAL  ENOPAGE  (SYSPRINT)  : 

PUT  LIST  C •**  LOAO  OF  DESCRIPTOR  CARD  DATA  FOLLOWS 
SKIP  (2)  ; 

PUT  SKIP  (3)  ; 


PHAZE2 : READ 
NO  - 


FILE 
GO  *T0 


/*  HERE 
STEP2: 


LP3: 


LP4: 


(TCDESC)  INTO  (TASKCARO) 
STEP3  J 

IS  THE  DESCRIPTOR  LOAO  LOOP  */ 
INTO  (TASKCARO) 


READ  FILE 
NO  « NO  ♦ 


( TCOESC ) 

l ; 


YETASK  ) THEN 


IF  C TASKN 
00  ; 

NSK  - 1 i 

GO  TO  STEP4 
ENO  LP3  ; 


STEP3: 


LP5: 


LP5END: 


STEP4: 


WRITE  FILE  (TDESC) 
NS  • NS  ♦ 1 ; 

YETASK  ■ TASKN  ; 
TOTD  - TOTO  ♦ l J 
TTAB  - 0 J 
TASKOS  - TASKN  J 
NSK  « 2 ; 


FROM  ( T ASKOESC ) 


00  J 


1 TO  NOD 


/*  SEE  IF 


UU  J ■ i iu  nuu  ■ f T occ  ir 

IF  ( TASKN  -»■  CHTASKtJ)  ) THEN 
NFIND  - NFIND  ♦ 1 J 
FTASKS  (J)  * l J 

GO  TO  STEP4  *, 

ENO  LP5  *. 

NOO  * NOD  ♦ 1 ; 

NOOAT  A (NOO)  « TASKN  ; 


MATCHING  OATA 
GO  TO  LP5EN0 


AVAILABLE 


*/ 


IF  ( PRTR  « l ) THEN 
PUT  EOIT  ( NO.  TASKCARO  ) 

( SKIP ( 1 ) , XilO),  F ( 4 ) » 

IF  ( DISP  - 1 ) THEN  DISPLAY  ( 


X ( 3) » A ( 13) t 
TASK80  ) ; 


A( 67 ) ) 


TVNS  - 0 ; 

GET  STRING  (TASKNUMS)  EDIT  (TVNS) 


( 22  < F ( 2 ) » X(l)  ) ) 


NT  ■ o ; 

DO  J « 1 TO  22  S 
NTEST  - TVNS  (J) 
IF  ( NTEST  ■ 6 ) 


tHEN  GO  TO  ENDLP4 


NER 


IF  ( 
NER 


NT  « NT  ♦ l ; 
P0ESC (NTEST ) 


0 ) THEN  GO  TO  STEP5 


♦ 1 


«#J#) 


PUT 


THEN 

ERROR 


EDIT  ( •**  ERROR  IN  TASK  NUMBER  -• . 
•-  DESCRIPTOR  SUBSCRIPT  • 

• DOES  NOT  EXIST  **•  ) 

( SKIP(l).  A.  A( 13 ) « At 


IF  C DISP  « 
PUT  STRING 
( 


2 ) THEN  GO 
(DLINE)  EOIT 
•**  ERROR  IN 


t NTEST, 
F( 3) , A ) 
TO  BUMO  ; 


TASKN, 


TASK  NUMBER  TASKN, 


•-  DESCRIPTOR  SUBSCRIPT  «,  NTEST, 
• DOES  NOT  EXIST  **•  ) 
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362 
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396 
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DLINE  ) 


SOURCE  CARO  LISTING  FOR 
P9: 


( A • At 
DISPLAY  l • 
DISPLAY  ( • 


A,  F ( 3 ) t 
' ) ; 

• > ; 


A ) ; 
DISPLAY  ( 


BUMO: 


STEPS: 

ENDLP4: 


IF  ( 


NER  > 100  ) THEN  GO  TO  EOJ 
GO  TO  ENOLP*  ; 


TTAB  ( NTEST ) 
END  LP*  i 


* POESC  INTEST)  ; 


GO  TO  STEP2  5 

/*  HERE  IS  EOF  ON  DESCRIPTOR  CARD  INPUT  */ 

EOFDESC:  WRITE  FILE  (TOESC)  FROM  I T ASKDESC ) ; 
NS  « NS  ♦ 1 5 


REFS  (13) 
REFS  (1*) 


NS  ; 
ND  ; 


DISPLAY  I • ' ) i 

DISPLAY  < •**  EOF  REACHED  ON  TASK  DESCRIPTOR  INPUT  FILEt'  ) 
PUT  STRING  (DUNE)  EDIT 


( • 
( A 

DISPLAY 


CARDS  PROCESSED 
P'ZZ,ZZ9',  A ) ; 
DLINE  ) ; 


NO  i 


) 


/***********************♦*************/ 

/*  ANY  REQUIRED  DIAGNOSTICS  OUTPUT  IN  THIS  SECTION  */ 

IF  I NFIND  * NV  ) THEN  GO  TO  STEP6  ; 

/*  HERE  DESCRIPTOR  / DATA  MISMATCHES  PRINTED  */ 

IF  I PR TR  » 2 ) THEN  GO  TO  LP6A  ; 

PUT  EDIT  I •**  THE  FOLLOWING  DATA  FILE  TASK  NUMBERS'. 

• HAVE  NO  MATCH  IN  THE  DESCRIPTOR  CARO  FILE  **' 
I SKIPI3).  A.  SKlPIDt  A ) ; 

PUT  SKIP  (2)  5 


LP6A: 


LP6: 


DISPLAY  I ' • ) I /*  NOTE  - ALWAYS  DISPLAY  */ 

DISPLAY  I •**  THE  FOLLOWING  DATA  FILE  TASK  NUMBERS'  ) J 

DISPLAY  i • HAVE  NO  MATCH  IN  THE  DESCRIPTOR  CARO  FILE  ** • ) ; 

DISPLAY  I * ' ) ; 


K » 0 ; 

DO  J = 1 TO  NOO 
IF  ( FT  ASKS  I J ) * 
K * K ♦ 1 ; 


PJT  STRING  (DLINE)  EDIT  ( 
( F ( 3 ) t X ( 2 ) » A ) ; 
DISPLAY  ( DLINE  ) ; 


IF  ( 


) THEN  GO  TO  LP6END  ; 

Kt  CHTASK(J)  I 


LP6END: 


PRTR  * 1 ) THEN 
PUT  EDIT  ( K.  CHTASK(J)  ) 

I SKIP  ( l ) t XUO).  F I 3 ) t X C 3 ) • A ) 5 

END  LP6  J 


/*  HERE.  DESCRIPTOR  TASK  NUMBERS  W/0  MATCHING  DATA  FILE  ENTRIES 

are  Printed  - if  any  */ 

STEP6:  IF  I NOD  » 0 ) THEN  GO  TO  BITTEREND  ; 

IF  I PRTR  = 2 ) THEN  GO  TO  LP7A  : 

PUT  EDIT  ( •**  THE  FOLLOWING  DESCRIPTOR  CARO  TASK  NUMBERS  ', 
• HAVE  NO  MATCH  IN  THE  OATA  FILE  **•  ) 

( SKIP(3>,  A.  SXIP(l),  A ) ; 


ID.  6-97 

I 


TAEG  REPORT  NO.  40 


414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 


PAGE  NUMBER  : 7 

SOURCE  CARO  LISTING  FOR 


P9: 

/*  TASK  D 

PUT  SKI P ( 2 ) 

LP7A: 

DISPLAY  ( • 
DISPLAY  ( • 

LP7; 


DISPLAY  I 
DISPLAY  ( 

00  J 


• ) : DISPLAY  ( • ' ) i 

THE  FOLLOWING  DESCRIPTOR  CARD  TASK 
HAVE  NO  MATCH  IN  THE  DATA  FILE  **' 
' ) ; 


1 TO  NOD 


IF  ( PRTR  * 1 ) THEN 
PUT  EDIT  ( J.  NODATA(J) 
xm,  A ( 13)  ) ; 

PUT  STRING  (DLINE)  EDIT 
( F<3> , X(2 ) » A ) 
DISPLAY  ( DLINE  ) ; 


) < SK I P( 1 ) » X(10),  F ( 3 ) » 
( J,  NODATA(J)  ) 


END  LP7  ; 

/ft************************************/ 

/*  HERE  AM  THE  WINDUP  */ 

BITTEREND: 

REWRITE  FILE  ( MREF ) FROM  (MAST) 


FEND: 

EOJ: 


CLOSE  FILE  ( MREF ) * FILE  (DIND),  FILE  (TDATA). 

FILE  (TCDESC),  FILE  (DTASK),  FILE  (TOESC), 

FILE  (TASKS)  S 

DISPLAY  ( • • ) J 

DISPLAY  ( 'TASK  FILE  DATA/DIRECTORY/OESCRIPTOR  LOAD  PROGRAM' 
II  • IS  NOW  TERMINATING'  ) J 

END  P9  : 
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1 

2 

3 

A 

5 

6 
7 
B 
9 

10 

11 

12 

13 

1* 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2* 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


P9A:  /*  ABBREVIATED  TASK  FILE  LISTINGS  - FRI/4/FEB/77  */ 

PROC  (INPARM)  OPTIONS  (MAIN)  ; 

/*  REVISIONS  : 

FR 1/04/ FEB/77  - FIRST 


*/ 

DECLARE  ( 


IMPLEMENTATION. 

SUN/20/MAR/77  - MODS  PRIOR  TO  INSTALLATION  AT  NCSS. 


DISP,  PTR,  NPAGE • DPAGE,  LT,  JKEY,  LP,  L,  MAXC, 
MAXIND'  MAXLT,  MAXLTA,  HAXLTB,  MAXSS, 
MAXTASK,  ■“ 

J,  K ) 


NC,  NREC, 

FIXED  BIN  STATIC 


DECLARE  ( 


DIND,  TASKS  ) FILE  RECORD  DIRECT 

KEYED  ENV  I REGIONAL ( 1 ) ). 


• ITEM 


INPARM 
1 POVER 
2 PARM 
2 PARM2 

TCOST 
( DUNE, 
D2 

BLANK 

T1 

RATING 

T2 


CARD 


RANK 


CHAR  ( 100)  VARYING, 

BASED  (PP), 

CHAR  ( l) , 

CHAR  (4), 

FIXED  DEC  (10,2)  STATIC, 

) CHAR  (80)  STATIC, 

CHAR  (2)  DEF  DUNE  POS  (1), 
CHAR  (4)  STATIC  INIT  ( • 


ELI  NE 

•**  ERROR  XX  OCCURED 
ENO 
ENREC 


CHAR  (45)  STATIC  INIT  ( 
JOBTASK  BILLET  COST' 

CHAR  (45)  STATIC  INIT  ( 


( 


), 


) 


CHAR  (39)  STATIC  INIT 
NREC  HAS  XXXXX  **•  ), 

CHAR  (2)  DEF  ELINE  POS  (10), 

PICTURE  ' Z»  ZZ9'  DEF  ELINE  POS  (32), 


PAGE 


T3 

XXXX' 

T3P 


) , 


CHAR  (11)  STATIC  INI T ( 
PICTURE  ' ZZZ9'  DEF  T3  POS  (8) 

/ft************************************/ 

DECLARE  1 


D I NDE  X 
2 DST  ART 
2 DEND 
2 NCAT 
2 NDE  SC 
2 CATEGORIES  (15) 
3 PCAT 
3 SCAT 
3 ECAT 
PDESC  (111) 


COVER  (4) 


STATIC, 
FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN, 
(15), 

FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN, 
FIXED  BIN 


/*  OVERALL  DESCRIPTOR 
/*  CKF.DESC. INDEX  */ 


INDEX  */ 


r t Acu  Din, 

CHAR  (80)  BASED  (PCOV) 


DECLARE  1 


MAST 

2 REFS  (40) 


STATIC, 
FIXED  BIN 


DECLARE  1 ATASKS 

2 RAT ING 
2 JOBTASK 
2 TASKTTL 
2 FILL 
2 BILCOST 
2 CC80 

DECLARE  1 TASKOVER 


STATIC, 

CHAR  (7), 

CHAR  (6), 

CHAR  (50), 

CHAR  (6), 

PICTURE  ' ( 8 ) 9V99 ' , 
CHAR  (1)  ; 

BASED  (PTO), 


/*  ABBR.  TASK  FILE  */ 
/*  CKF . ATASKS  */ 
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SOURCE  CARO  LISTING  FOR 

P9A:  /*  ABBREVIATED  TASK  FILE  LISTINGS  - FRI/4/FEB/77  ♦/ 


69 

2 RATING 

CHAR  (5), 

70 

2 RANK 

CHAR  (2), 

71 

2 JOBTASK 

CHAR  (6)  ; 

72 

73 

DECLARE 

1 TASKDIR  (1200)  STATIC, 

/* 

74 

2 CHTASK 

CHAR  ( 13), 

/* 

75 

2 TASKPTR 

FIXED  BIN, 

76 

77 

COVTASK  (12) 

CHAR  (1500) 

BASED 

78 

LOADTASK 

CHAR  (1500) 

BASED 

79 

80 

/ft************************************/ 

81 

82 

START: 

PP  * AOOR  ( INPARM)  ; 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 


PTO  * AODR  (ATASKS)  . 
PCOV  » AOOR  (OINOEX)  ; 
PTTASK  « AODR  (TASKDIR) 


NPAGE » DPAGE,  NC, 
J * K * 0 i 

LT  • 100 


MAXLT 

JKEY 


65  ; 


/*  DISPLAY  PAGE  LINE  COUNTER  ♦/ 
/*  MAX  0 LINES  ON  DISPLAY  */ 

/*  DIRECTORY  SS,  SKIPS  DIR(l)  */ 


COMMENCE:  OPEN  FILE  (HREF)  RECORD  INPUT, 

FILE  (OIND)  INPUT, 

FILE  (TASKS)  INPUT, 

FILE  (OTASK)  RECORD  INPUT  J 

READ  FILE  ( MREF ) I NTO  (MAST)  ; 

MAXTASK  * REFS  (11)  ; 

MAXC  » REFS  (4)  : 

MAXSS  » REFS  (12)  ; 

IF  C PARM  « 'B'  ) THEN  GO  TO  BSETUP  *. 

/*  A-OPTION,  PRINT  DATA  FILE  SETUP  HERE  */ 

MAXLTA  * MAXLT  - 3 ; 

DIRLOAO:  .00  J * 1 TO  12  ; 

PLTASK  * AODR  ( COVTASK(J)  ) ; 
READ  FILE  ( DTASK ) INTO  (LOAOTASK) 
END  DIRLOAD  ; 

GO  TO  FIRST  ; 

/*  B-OPTION  ROUTE  INITILIZEO  HERE  */ 

BSETUP: 


INTO  (CARD)  KEY  (J) 
CARD  ; 


DO  J » 9 TO  12  i 
READ  FILE  (DlND) 

COVER  ( J - 8 ) 

END  BSETUP  ; 

MAXIND  - REFS  (4)  ; 

NREC  * DSTART  - l ; 

MAXLTB  - MAXLT  - 1 ; 

/*************************************/ 

/*  NOW  INITILIZE  DEVICE  ASSIGNMENTS  ♦/ 

FIRST:  DISP,  PTR  * 1 ; 

IF  ( PARM2  = • BOTH*  ) THEN  GO  TO  STEPl 
IF  I PARM2  » 'TERM'  ) 

THEN  PTR  - 2 ; 

ELSE  DISP  ■ 2 J 
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1 AO 
1 A 1 
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15A 

155 

156 
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158 

159 

160 
161 
162 
163 
16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17A 

175 

176 

177 

178 

179 

180 
181 
182 
183 
1 8 A 

185 

186 

187 

188 

189 

190 

191 

192 

193 
19A 

195 

196 

197 

198 

199 

200 
201 
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203 
20A 

205 
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SOURCE  CARO  LISTING  FOR 

P9A:  /*  ABBREVIATED  TASK  FILE  LISTINGS  - FRI/4/FEB/77  */ 


STEP1 : LT, 

/*  HERE, 


LP  * 100  ; 

PRINTER  DATASET  IS 


IN  I T I L I LEO  */ 

s 

IF  ( PTR  * 2 ) THEN  GO  TO  STEPA  ; 

OPEN  FILE  (SYSPRINTJ 

LINESIZE  (120)  PAGESIZE  (58)  ; 

ON  ENDPAGE  (SYSPRINT) 

BEGIN  ; 

NP AGE  » NPAGE  ♦ 1 ; 


STEP2 : 


IF  ( 
PJT 

PUT 


PARM  « '&•  ) THEN  GO  TO  STEP2 

NPAGE,  T1 


EDIT  ( 'PAGE  NO  : 

( PAGE.  LINE ( 2 ) • X(10),  A, 

2 ( SKIP( l).  X(10),  A( 45 ) 
GO  TO  STEP3  ; 


T2, 


f(4), 

),  SKIP(l), 


EDIT  ( ‘PAGE  NO  : NPAGE, 

•***  LISTING  OF  DESCRIPTOR  CATEGORIES  AS', 

■ APPLIED  TO  JOBTASK  DATA  *♦*• , • • ) 

< PAGE.  LINE ( 5 ) « X(20),  A.  F(2). 

SKIP! 3 ) , X( 20) , A,  SKI P ( 1 ) , X(20),  A, 

SK I P ( 3 ) , A ) ; 


STEP3 : 


PUT 

END 


SKIP 

« 


( 1) 


SIGNAL  ENDPAGE  (SYSPRINT)  ; 

/*  HERE,  SETUP  DISPLAY  DATASET,  IF  REQUIRED  ♦/ 
STEP4:  IF  ( OISP  * 2 ) THEN  GO  TO  LOOP  i 

INEWOP) 


ON  CONDITION 
BEGIN  i 


LPI 


IF  ( LT  < 66  ) THEN 
DO  L « LT  TO  66 
DISPLAY  ( BLANK 
END  LPi  J 

DISPLAY  (BLANK)  ; 

DP  AGE  « DP AGE  ♦ l ; 
T3P  * OPAGE  ; 

DISPLAY  (T3)  ; 
DISPLAY  (BLANK)  ; 

4 ; 


ATTL : 


( 


LT 
PARH 


IF 
DO 

DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 
LT  * LT  «■ 
END  ATTL 


) 


J ITEM 

, i 

3 ; 


THEN 

RATE 


RANK  TASK 


COST-PER-BILLET* 

............. , 


) 


END  ; 

SIGNAL  CONDITION  (NEWDP) 


/*************************************/ 

/*  MAINLINE  LOOP  FOLLOWS  */ 

LOOP:  IF  { PARM  'B'  ) THEN  GO  TO  STEP5  ; 
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208 

209 

210 
211 
212 
213 
21* 

215 

216 

217 

218 

219 

220 
221 
222 
223 
22* 

225 

226 

227 

228 

229 

230 

231 

232 

233 
23* 

235 

236 

237 

238 

239 
2*0 
2*1 
2*2 
2*3 
2** 
2*5 
2*6 
2*7 
2*8 
2*9 

250 

251 

252 

253 
25* 

255 

256 

257 

258 

259 

260 
261 
262 
263 
26* 

265 

266 

267 

268 

269 

270 

271 

272 

273 
2 7* 
275 


SOURCE  CARO  LISTING  FOR 

P9A : /*  ABBREVIATED  TASK  FILE  LISTINGS  - FRI/*/FEB/77  */ 

/*  HERE  IS  B-SECTI ON  PRINT  SETUP  */ 


BLOOP: 

ERl: 


/* 

STEP5 

ER2: 

/* 

STEP6 

LP2: 


NREC  * NREC  ♦ 1 ; 

IF  ( NREC  > MAXC  ) THEN  GO  TO  BUST1  ; 

READ  FILE  (DINO)  INTO  (DLINE)  KEY  (NREC)  5 
GO  TO  STEP6  ; 

NOW,  FOR  A-OPTION  SETUP  */ 

JKEY  - JKEY  ♦ 1 ; 

IF  ( JKEY  > MAXSS  ) THEN  GO  TO  EOFAB  5 
NREC  * TASKPTR  (JKEY)  ; 

IF  ( NREC  > HAXTASK  ) THEN  GO  TO  BUST2  ; 
READ  FILE  (TASKS)  INTO  (ATASKS)  KEY  (NREC) 


NC 

NOW, 

IF 


IF  ( 


NC  ♦ 1 

FOR  NEW  LINE(S)  OUTPUT  ; FIRST  TRY  TERMINAL  ♦/ 
( 01 SP  » 2 ) THEN  GO  TO  STEP?  ; 

•A'  ) THEN 


IF 

IF 


PARM 
03  • 

IF  ( LT  > MAXLTA  ) THEN  SIGNAL  CONDITION  (NEWOP) 
DISPLAY  ( BLANK  ) J 

PUT  STRING  (DLINE)  EDIT 

( NC.  TASKOVER. RATING.  TASKOVER. RANK, 
TASKOVER. JOBTASK,  BILCOST  ) 

( F ( * ) , X ( 3 ) , A ( 5 ) , X ( 2 ) , A ( 2 ) , X(2), 

A,  61,  X ( 2 ) , P'S*S,$$*,$»9.V99'  ) *. 

DISPLAY  (DLINE)  ; 

DISPLAY  ( (10)*  • II  TASKTTL  ) J 

LT  * LT  ♦ 3 i 

GO  TO  STEP7  ; 

END  LP2  ; 

LT  > HAXLTB  ) THEN  SIGNAL  CONDITION  ( NEWDP ) ; 

) 


(D2 

DO 


•**•)  I ( D2 
DISPLAY  ( • 


• — * ) 
• ) 


THEN 
LT  « 


LT  ♦ 1 


ENO 


01  SPLAY 
LT  » LT 


( DLINE 
♦ 1 ; 


) 


/* 

STEP7 

LP3 : 


HERE,  TRY  FOR  PRINTER  OUTPUT  */ 

IF  ( PTR  » 2 ) THEN  GO  TO  TALLY 
• B*  ) THEN 


IF  ( 


PARM 
DO  ; 

IF  ( 


(D2  * '** 
THEN  PUT 


•I  I 

SKIP 


PJT  EOIT  ( DLINE 
GO  TO  TALLY 
END  LP3  5 


■•--•)  ) 
t 

( SKIP(l),  X(10),  A ( 80 ) 


(02 
( 1) 


/* 


PUT  EDIT  ( NC,  TASKOVER. RATING,  TASKOVER. RANK, 

TASKOVER. JOBTASK,  BILCOST,  TASKTTL  ) 

( SK I P ( 2 ) , X(IO),  P* 2.ZZ9' • X ( 3 ) , A(5),  X(*),  A(2), 

X ( 3 ) , A 1 6 ) , X( 3 ) , P* $$*,$$$, **9.V99* , X(3),  A(50)  ) 

HERE,  RECYCLE  FOR  NEXT  RECORD,  IF  ANY  */ 
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278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 
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291 
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297 
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305 
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307 

308 

309 


SOURCE  CARO  LISTING  FOR 

P9A:  t*  ABBREVIATED  TASK  FILE  LISTINGS  - FRI/4/FEB/77  */ 

TALLY:  IF  ( PARM  * 'A*  ) THEN  GO  TO  STEP5  J 

TALLYB:  IF  ( NREC  >*  DENO  ) THEN  GO  TO  EOFAB  ; 

ELSE  GO  TO  LOOP  ; 

/**************«**********************/ 

/*  MAX  KEY  EXCEEDED  ERRORS  PROCESSED  IN  THIS  SECTION  */ 


BUST l : 

BUST2 : 
ERCOM: 


LP4 : 


ENO  * '01'  I 

GO  TO  ERCOM 
ENO  * '02'  ; 
ENREC  * NREC  ; 


IF  ( DISP 
DO  ; 


2 ) THEN 


DISPLAY  (BLANK)  ; 

01  SPLAY  (BLANK)  ; 

DISPLAY  (ELINE)  ; 

DISPLAY  (BLANK)  ; 

ENO  LP4  ; 

IF  ( PTR  = 1 ) THEN 

PJT  LIST  ( ELINE  ) SKIP  (3)  ; 

/ft************************************/ 

/*  HERE  IS  PROGRAM  WINDUP  */ 

EOFAB:  CLOSE  FILE  (DIND).  FILE  ( MREF ) • FILE  (TASKS). 

FILE  ( DT  ASK ) ; 

END  P9 A ; 


D. 6-103 


TAEG  REPORT  NO.  40 


PAGE  NUMBER 


l 


SOURCE  CARO  LISTING  FOR 


P14: 


/♦  NITRAS  COP  EXTRACT  VIA  DESCRIPTOR  CIN  - MON/ 13/DEC/76  */ 


1 

2 

3 

A 

5 

6 

7 

8 
9 


P14: 


/*  NITRAS  COP  EXTRACT  VIA  DESCRIPTOR  CIN  - MON/ I3/DEC/76  */ 
PROC  OPTIONS  (MAIN)  ; 


/* 


*/ 


REVISIONS  : 
TUE/11/ JAN/77  - 


RAN  VERYFIRST  TIME 


MON/14/ MAR/77  - MOOS  TO  PREPARE  FOR  SHIP  TO  NCSS. 


10 

DECLARE 

1 

RNI  T, 

/*  ORIGINAL  N 1 

LI 

2 FI 

CHAR  (36) 

t 

12 

2 F ILL  l 

CHAR  (6), 

13 

2 PC 

CHAR  (2), 

14 

2 FILL2 

CHAR  (I), 

15 

2 F2 

CHAR  (7). 

16 

2 FILL3 

CHAR  (19) 

V 

17 

2 STCD 

CHAR  (1). 

18 

2 STDTE 

FIXEO  DEC 

(5), 

19 

2 FILL4 

CHAR  (8), 

20 

2 ATT  R 

FIXED  DEC 

(3,1), 

21 

2 STBK 

FIXED  DEC 

(3,1), 

22 

2 THRS 

FIXED  DEC 

(5), 

23 

2 LHRS 

FIXED  OEC 

( 5)  , 

24 

2 FILL5 

CHAR  (3), 

25 

2 F3 

CHAR  (6), 

26 

2 FILL6 

CHAR  (42) 

9 

27 

2 CLEN 

FIXED  DEC 

(5), 

28 

2 FILL7 

CHAR  (663 

) ; 

29 

30 

DECLARE 

I 

RACRS , 

31 

2 FI 

CHAR  (36) 

, 

32 

2 PC 

CHAR  (2), 

33 

2 F2 

CHAR  (7), 

34 

2 STCD 

CHAR  (1), 

35 

2 STDTE 

PICTURE  • 

(5)9* , 

36 

2 F3 

CHAR  (6), 

37 

2 ATT R 

PICTURE  * 

99V9* , 

38 

2 STBK 

PICTURE  * 

99  V9  * , 

39 

2 CLEN 

PICTURE  ' 

999*  , 

40 

2 THRS 

PICTURE  ' 

999'  , 

41 

2 LHRS 

PICTURE  • 

999*  , 

42 

2 CAOB 

PICTURE  • 

(5  )9V99' , 

43 

2 CC80 

CHAR  11) 

* 

44 

45 

DECLARE 

I 

OVERLAY 

BASEO  (POV), 

46 

2 TAPCDP  CHAR 

(4), 

47 

2 TAPCIN  CHAR 

(8). 

48 

2 TAPCST  CHAR 

( 16)  ; 

49 

50 

DECLARE 

( 

TC,  CC, 

NTOT , NDONE , DDONE , 

51 

NC  ) 

FIXED  BIN 

STATIC, 

52 

( 

CCIN,  TCIN,  PFIRST  ) CHAR 

53 

( 

DUNE, 

CARD  > 

CHAR  (80) 

54 

55 

DCARO 

CHAR  (80) 

STATIC, 

56 

CROC  IN 

CHAR  (8) 

DEF  DCARO, 

57 

58 

SRET 

LABEL  I 

59 

60 

DECLARE 

T1 

CHAR  (44) 

STATIC  IN 

61 

•DESCRIPTOR 

CIN 

NITR 

62 

63 

T 2 

CHAR  (64) 

STATIC  IN 

64 

• CARD 

NUM  COUNT  CIN  REC 

65 

66 

DECLARE 

RDATE 

CHAR  (6) 

STATIC, 

67 

GDATE 

CHAR  (8) 

STATIC, 

68 

RTIME 

CHAR  (9) 

STATIC, 

/*  ABBREVIATED  COURSE  RECORD 
/*  (CARD-IMAGE) 


*/ 

*/ 


NSKPt  TOTCINt  CINER, 

(8)  STATIC, 

STATIC, 


NUM 


COURSE1  ), 

CDP  COURSE  SHORT  TITLE*) 
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73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
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8* 

85 

86 

87 
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89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
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103 

104 

105 
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108 

109 

110 
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SOURCE  CARD  LISTING  FOR 

P14:  /*  NITRAS  CDP  EXTRACT  VIA  DESCRIPTOR  CIN  - MON/ 13/DEC/76  */ 

GTIME  CHAR  (4)  STATIC  ; 

FMTl:  FORMAT  ( XI9),  P*Z,ZZ9«,  A ) ; 

/«************************* ***********/ 

START:  CC80  = • • ; 

CAOB  = 0 ; 

POV  = ADDR  IRNIT)  ; 

NC,  NDONE,  DDONE . TOTCIN,  CINER  = 0 ; 


RDATE  * DATE  *, 

GDATE  * SUB S TR  (RDATE, 3, 2) 
SUBSTR  (RDATE, 5, 2) 
SUBSTR  (RDATE, 1,2) 


•/* 


RTIME  = TIME  ; 

GTIME  = SUBSTR  (RTIME, 1,4)  ; 

OPEN  FILE  (NITRAS)  RECORD  INPUT, 
FILE  ( DESCR ) RECORD  INPUT, 
FILE  (COURSE)  RECORD  OUTPUT 

ON  ENDFILE  (NITRAS)  30  TO  EOFN  ; 
ON  ENDFILE  (DESCR)  GO  TO  EOFD  ; 

/*************************************/ 


DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 

DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 


•ABBREVIAfEO  COURSE  DATA  BASE  EXTRACT  PROGRAM*  ) 

* DATE  : * IT  GDATE  ) i 

• TIME  : • I]  GTIME  ) ; 


T 1 


> ; 

DISPLAY  ( T 2 ) 


/*************************************/ 

READ  FILE  (NITRAS)  INTO  (RNIT)  ; 
TCIN  * TAPCIN  J 
TC,  CC  * 1 ; 


STEP! 
TEST l : 
YES: 


READ  FILE  (DESCR)  INTO  ( DCARD ) i 
CCIN,  PFIRST  = CRDCIN  ; 

IF  ( TCIN  - = CC I N ) THEN  GO  TO  TEST2 

RACRS  * RNIT,  BY  NAME  *, 

WRITE  FILE  (COURSE)  FROM  (RACRS) 
NC  = NC  ♦ l ; 


IF  ( 


PFIRST 

TOTCIN 


( 8)  * * 
TOTCIN 


) THEN  GO  TO  STEP2 
♦ 1 5 


STEP2: 


PUT  STRING  (DUNE)  EDIT 

( CC,  TOTCIN,  PFIRST,  TC , TAPCDP,  TAPCST  ) 

( XU1),  P * Z , ZZ9  • , X ( 5 ) , P*Z,ZZ9*.  X(2>,  A<8), 
X ( 3 ) , P'Z,ZZ9*  , X ( 4 ) , A ( 4 ) , X ( 4 J • A(16)  ) ; 

DISPLAY  ( • * ) ; DISPLAY  ( DLINE  i ; 

PFIRST  = • • ; 

GO  TO  STEP3  ; 

PUT  STRING  (DLINE)  EDIT 

( TC,  TAPCDP,  TAPCST  ) 

( X ( 39  ) , P ' Z , ZZ9 ' , X ( 4 ) , A ( 4 ) , X(4),  A(16>  ) 5 
DISPLAY  ( DLINE  ) ; 
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159 

160 
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173 
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177 

178 

179 

180 
181 
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185 
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190 
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192 

193 
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SOURCE  CARD  LISTING  FOR 

PI*:  /*  NITRAS  COP  EXTRACT  VIA  DESCRIPTOR  CIN  - MON/ 13/DEC /76  */ 

STEP3:  READ  FILE  (NITRAS)  INTO  (RNIT)  ; 

TC  « TC  ♦ 1 ; 

IF  ( TAPCIN  * TC IN  ) THEN  GO  TO  YES  ; 

TC  I N * TAPCIN  *, 

/*  HERE,  TAPE  CIN  HAS  ADVANCED  */ 

STEP*:  READ  FILE  (OESCR)  INTO  ( DC ARD ) J 

CC  « CC  ♦ 1 ; 

IF  ( CROC  IN  « CC I N ) THEN  GO  TO  STEP*  ; 

GO  TO  STEP1  J 

/♦  HERE,  CINS  NO  COMPARE;  TRY  CCIN  BEHIND  TCIN  */ 

TEST2:  IF  ( CCIN  > TCIN  ) THEN  GO  TO  STEP5  ; 

SRET  * STEP*  ; 

GO  TO  CINGONE  ; 

/*  HERE,  TAPE  CIN  IS  BEHIND  CARD  CIN  */ 

STEP5 : READ  FILE  (NITRAS)  INTO  (RNIT)  J 

TC  * TC  ♦ 1 ; 

TCIN  * TAPCIN  ; 

GO  TO  TEST1  ; 

/•♦•I*********************************/ 

/*  HERE,  EOF  ON  NITRAS  TAPE  DATASET  */ 

EOFN: 


NDONE 
SRET  > 


‘ tc  ; 

STEP6 


STEP6: 


DISPLAY  ( • • ) J 

DISPLAY  ( «**  EOF  ON  NITRAS-TAPE  INPUT  **• 

IF  ( DOONE  > 0 ) THEN  GO  TO  QUIT  ; 

IF  ( PFIRST  * (8)*  • ) THEN  GO  TO  CINGONE 

READ  FILE  (DESCR)  INTO  (DCARO)  ; 

CC  * CC  ♦ 1 ; 


/*  NOTE  - FALLTHRU  TO  CINGONE  SUBROUTINE,  BELOW  */ 

/A************************************/ 

/*  THIS  IS  THE  MISSING  CIN  MSG  SUBROUTINE  ; RETURN  « SRET  */ 

CINGONE: 

TOTCIN  * TOTCIN  ♦ l ; 

PUT  STRING  (DLINE)  EDIT 

( •****•,  CC,  TOTCIN,  CCIN,  •-  NO  CIN  MATCH  IN  NITRAS  ) 
( X ( * ) , A.  X(3).  P' Z » ZZ9* , X ( 5 ) , P»Z,ZZ9', 

X ( 2 ) , A ( 8 ) , X(  2 ) , A ) *. 

DISPLAY  ( • ' J J DISPLAY  ( DLINE  ) ; 

CINER  * CINER  ♦ 1 ; 

GO  TO  SRET  ; 

/*************************************/ 

/*  HERE,  EOF  ON  CARD-DESCRIPTOR  INPUT  +/ 
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PAGE  NUMBER 


207 

208 

209 

210 
211 
212 
213 
21* 

215 

216 

217 

218 

219 

220 
221 
222 
223 
22* 

225 

226 

227 

228 

229 

230 

231 

232 

233 
23* 

235 

236 

237 

238 

239 
2*0 
2*1 
2*2 
2*3 
2** 
2*5 
2*6 
2*7 


SOURCE  CARO  LISTING  FOR 
PI*: 


EOFD: 


/*  NITRAS  COP  EXTRACT  VIA  DESCRIPTOR  CIN  - MON/ 13/DEC/76  */ 
OOONE  = cc  ; 


DISPLAY  ( • • ) 5 

DISPLAY  ( EOF  ON  CARD-DESCRIPTOR  INPUT 


GO  TO  QUIT  ; 

/I************************************/ 


QUIT 


DISPLAY  I • 


) 


DISPLAY  ( • 


) 


PUT  STRING  IDLINE)  EDIT 

( CC,  ' : TOTAL  DESCRIPTOR  CARDS  READ* 
DISPLAY  I DLINE  ) ; 

PUT  STRING  (DLINE)  EDIT 

( TOTCIN,  • : TOTAL  CIN  NUMBERS  INPUT' 
DISPLAY  < DLINE  ) *, 


) (R(FMTl)) 


) (R(FMTl)) 


PUT  STRING  (DLINE)  EDIT 

( CINER,  ' : TOTAL  CIN  ERRORS  (NO  MATCH  IN  NITRAS)'  ) 


DISPLAY  I 


( RIFMTl)  ) 
DLINE  ) ; 


PUT  STRING  (DLINE)  EDIT 


( NC, 


DISPLAY  ( DLINE  ) 

PUT  STRING  (DLINE)  EDIT 


TOTAL  COURSES  EXTRACTED'  ) (R(FHT1) I 


( TC  i 


DISPLAY 

DISPLAY 


( DLINE  ) 

( ' ' ) 


LAST  RECORD  READ  IN  NITRAS'  ) < R ( FMT 1 ) ) 


CLOSE  FILE  (NITRAS),  FILE  (DESCR),  FILE  (COURSE) 
DISPLAY  ( • • ) ; 

DISPLAY  ( 'COURSE  DATABASE  CONSTRUCT  PROGRAM  • 

II  'IS  NOVf  TERMI NATING'  ) ; 


DISPLAY  ( 

END  PI* 


) ; 
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SOURCE  CARD  LISTING  FOR 

PL6:  /*  DESCRIPTOR  MASTER  INDEX  MAKEUP  - FR l / 14/ JAN/77  */ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


P16: 

/* 

*/ 


/*  DESCRIPTOR  MASTER  INDEX  MAKEUP  - FRI/14/JAN/77  */ 
PROC  OPTIONS  (MAIN)  ; 

REV  I S 1 DNS  s 

FRI/14/ JAN/77  - FIRST  VERSION  IMPLEMENTED. 
M0N/14/MAR/77  - MODS  TO  PREPARE  FOR  SHIP  TO  NCSS. 


DECLARE  1 DINDEX  BASED  (PIN), 

2 DST ART  FIXED  BIN, 

2 DEND  FIXED  BIN, 

2 NCAT  FIXED  BIN, 

2 NDESC  FIXED  BIN, 

2 CATEGORIES  (15), 

3 PC AT  FIXED  BIN, 

3 SCAT  FIXED  BIN, 

3 ECAT  FIXED  BIN, 

2 PDESC  (ill)  FIXED  BIN, 

( I COUR  SE ( 160 ) , IVEHI160),  ITASKI160)  ) 
FIXED  BIN  STATIC, 

COVER  (4)  CHAR  (80)  BASED  (PCOV)  ; 


DECLARE  CARD 


CHAR  (BO)  STATIC, 

CF2  CHAR  (2)  DEF  CARD  POS  (l), 

CTYP  CHAR  (8)  DEF  CARD  POS  (4), 

TREC  PICTURE  *9999*  DEF  CARD, 

FLAG  (3)  BIT  (1)  STATIC, 

( NREC,  NER,  NOUT,  NCC,  NC,  NP AGE, 

J,  K,  L ) FIXED  BIN  STATIC  5 


DECLARE 


1 MAST 

2 REFS  (40) 


STATIC , 
FIXED  BIN 


), 


DECLARE  TTESTS  (3)  CHAR  (8)  STATIC  INIT 

( * COURSES' , 'VEHICLES',  'TASKS'  ), 

BLANK  CHAR  (4)  STATIC  INIT  ( • 

DLINE  CHAR  (80)  STATIC, 

POINT  (3)  POINTER, 

( ROUTE,  RPR  I NT  ) LABEL  ; 

DECLARE  1 C ARBI N STATIC, 

2 CNJMS  (40)  FIXED  BIN  ; 

DECLARE  EMSGS  (7)  CHAR  (38)  STATIC  INIT  ( 

•FIRST  CARD  NOT  (--)  TYPE  CARD', 
•DUPLICATE  (--)  CARD', 

•TYPE  OF  ( — ) CARD  INVALID*, 

•TYPE  (**)  CARD  MUST  FOLLOW  TYPE  ( — )', 
•CATEGORY  HAS  NO  DESCRIPTORS', 
•DESCRIPTOR  NUMBER  CONVERSION  ERROR', 
•CATEGORY  TABLE  SIZE  EXCEEDED,  MAX  = 15' 

/*************************************/ 

START:  ON  ERROR  GO  TO  QUIT  ; 

OPEN  FILE  (CARDS)  RECORD  INPUT  ; 

ON  ENDFILE  (CARDS)  GO  TO  EOFC ARDS  ; 

NREC  = 13  J 
NER,  NC, 

NP AGE  = 0 ; 

ICOURSE,  1VEH,  ITASK  = 0 5 
FLAG  = ' 0 ' B ; 

POINT  (1)  = ADDR  (ICOURSE)  ; 
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69 

70 

71 

72 

73 
7* 

75 

76 

77 

78 

79 

80 
81 
82 
83 
8* 

85 

86 

87 

88 

89 

90 

91 

92 

93 
99 

95 

96 

97 

98 

99 
100 
101 
102 
103 
10*. 

105 

106 

107 

108 

109 

110 
111 
112 
113 
119 

115 

116 
1 1 7 
118 

119 

120 
121 
122 
123 
129 

125 

126 

127 

128 

129 

130 

131 

132 

133 
139 

135 

136 

137 


PAGE  NUMBER 


SOURCE  CARO  LISTING  FOR 


P16: 


/*  DESCRIPTOR  MASTER  INDEX  MAKEUP  - FR I / 19/ J AN/ 77  */ 

POINT  12)  = ADDR  (IVEH)  ; 

POINT  ( 3)  = ADDR  ( ITASK)  » 


DISPLAY  ( ' 
DISPLA 


Y ( 'MASTER  DESCRIPTOR  INDEX  CONSTRUCT  • 
I 'PROGRAM  IS  NOW  STARTING'  ) J 


/*************************************/ 

/*  VERY  FIRST  CARD  PROCESSED  HERE  */ 

READ  FILE  (CARDS)  INTO  (CARD)  ; 

ERl:  NERt  NC  * 1 ; 

IF  I CF2  ->=  • — • ) THEN  GO  TO  QUIT  ; 

/*  HERE,  CONTENTS  OF  I—)  CARD  VERIFIED  */ 

STEP  1 : 


DO  K * l TO  3 5 
IF  ( CTYP  TTESTS(K) 
THEN  GO  TO  ENDS  1 


) 


J * K ; 

ER2:  NER  * 2 ; 

IF  ( FLAG ( J ) ) THEN  GO  TO  QUIT  ; 

PIN  = POINT ( J ) ; 

FLAG  ( J ) =«  ' l'B  J 

GO  TO  PASS l ; 

ENDS l : END  STEP1  ; 

ER3 : NER  = 3 ; 

GO  TO  QUIT  ; 

/*  HERE,  START  PROCESSING  NEW  ( — > TYPE  */ 

PASSl:  DSTART  * NREC  ; 

Rl:  READ  FILE  (CARDS)  INTO  (CARD)  ; 

NREC  * NREC  ♦ 1 *,  NC  * NC  ♦ l J 
IF  ( CF 2 * • ' ) THEN  GO  TO  Rl  J 

ER9.  ?fR(*cF2’-*  •**•  ) THEN  GO  TO  QUIT  ; 

/*  HERE,  STARTING  TO  PROCESS  NEW  (**)  CATEGORY  */ 

STEP2:  NC AT  = NCAT  «■  1 ; 

PC  AT  (NCAT)  * NREC  ; 

R2 : READ  FILE  (CARDS)  INTO  (CARD)  ; 

NREC  = NREC  ♦ 1 f NC  * NC  ♦ 1 i 

IF  ( CF2  * ' ' ) THEN  GO  TO  R2  i 

ER5 : NER  * 5 ; 

IF  ( CF  2 * ) | ( CF2  = '— ' ) THEN  GO  TO  QUIT  ; 

/*  NOW,  DESCRIPTORS  WITHIN  A CATEGORY  START  */ 

ER6 : NER  = 6 ; 

GET  STRING  (CF2)  EDIT  (N)  ( F(2)  > i 
SCAT  (NCAT)  = N J 

STEP3:  NDESC  = NDESC  ♦ 1 ; 

POESC  (N)  = NREC  J 

R3 : READ  FILE  (CAROS)  INTO  (CARD)  ; 

NREC  = NREC  + 1 ; NC  = NC  ♦ l i 

IF  ( CF2  = ' ' ) THEN  GO  TO  R3  ; 

IF  ( CF 2 * •+*•  ) THEN  GO  TO  STEP9  ; 
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138 

139 
UO 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 
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SOURCE  CARO  LISTING  FOR 

P 16:  /*  DESCRIPTOR  MASTER  INDEX  MAKEUP  - FRI / 14/ JAN/77  */ 

IF  < CF 2 * • — • ) THEN  GO  TO  STEPS  J 

ER6A:  NER  * 6 ; 

GET  STRING  ICF2)  EOIT  (NI  ( F(2)  ) 5 
GO  TO  STEP3  J 

/*  HERE,  DONE  WITH  ONE  CATEGORY  - RECYCLING  TO  NEXT  */ 

STEP4 : NER  * 7 ; 

ER7 : IF  < NC AT  > 14  ) THEN  GO  TO  QUIT  ; 

EC  AT  ( NC AT ) * N ; 

GO  TO  STEP2  *. 

/♦  NOW,  DONE  ONE  ( — ) TYPE  - RECYCLING  TO  NEXT  */ 

STEPS:  ECAT  ( NC AT ) = N ; 

DEND  = NREC  - 1 S 
GO  TO  STEPl  ; 


/•♦I**********************************/ 


EOFC ARDS : J*  NOW,  EOF  ON  INPUT  DESCRIPTOR  CARDS  */ 

MAXREC  *=  NREC  5 
DEND  = NREC  ; 

ECAT  INCAT)  = N ; 

CLOSE  FILE  (CARDS  ) J 

OPEN  FILE  (CARDS)  RECORD  INPUT, 

FILE  (MREF)  RECORD  UPDATE, 

FILE  (DIND)  RECORD  OUTPUT  ; 

ON  ENDFILE  (CARDS)  GO  TO  EOJ  ; 

READ  FILE  (MREF)  INTO  (MAST)  ; 

REFS  (4)  * NREC  J 
REWRITE  FILE  (MREF)  FROM  (MAST)  ; 

/*  FIRST  OUTPUT  HEADER  RECORD  */ 

CNUMS  * 0 ; 

CNUMS(l)  * MAXREC  J 

WRITE  FILE  (DIND)  FROM  (CARBIN)  ; 

NOUT  * 0 ; 

/*  NOW,  FOR  THE  COURSE  INDEX  */ 

PCOV  * ADDR  ( ICOURSE)  ; 

PIN  = ADDR  ( ICOURSE)  ; 

LPl : DO  J =»  1 TO  4 ; 

CARD  * COVER  (J)  I 

WRITE  FILE  (DIND)  FROM  (CARD)  ; 

END  LPl  { 

NOUT  = NOUT  ♦ 4 J 

/*  VEHICLE  INDEX  IS  OUTPUT  HERE  */ 

PCOV  = ADDR  ( IVEH)  ; 

PIN  = ADDR  ( IVEH)  ; 

LP2:  DO  J = l TO  4 ; 

CARD  * COVER  (J)  5 

WRITE  FILE  (DIND)  FROM  (CARD)  ; 

END  LP2  ? 
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20  7 
208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
22  8 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 


PAGE  NUMBER  : 4 

SOURCE  CARD  LISTING  FOR 

P16:  /*  DESCRIPTOR  MASTER  INDEX  MAKEUP  - FR 1 / 14/ JAN/77  */ 

N3UT  = NOUT  ♦ 4 ; 

/*  NOW  FOR  THE  TASK  INDEX  OUTPUT  */ 

PCOV  = ADDR  I ITASK)  : 

PIN  = ADDR  I ITASK)  ; 

LP3:  DO  J = l TO  4 ; 

CARD  = COVER  (J)  ; 

WRITE  FILE  (DIND)  FROM  (CARD)  ; 

END  LP3  ; 

NOUT  = NOUT  ♦ 4 ; 

/*  NOW,  OUTPUT  THE  DESCRIPTOR  CARD  FILE  */ 

OISPLAY  ( • * ) ; 

DISPLAY  ( 'DESCRIPTOR  CARD  FILE  LISTING  FOLLOWS'  ) • 
DISPLAY  ( (36)'-’  ) ; 

DISPLAY  ( • ' ) ; 

NCC  = 0 ; 

RALL:  READ  FILE  (CARDS)  INTO  (CARD)  ; 

NCC  = NCC  ♦ 1 ; 

WRITE  FILE  (DIND)  FROM  (CARD)  : 

NOUT  » NOUT  ♦ 1 ; 

IF  ( CF2  * • — ' I THEN 

DO  S DISPLAY  ( • ' ) ; DISPLAY  ( • • ) ; END 

IF  ( CF  2 * ) THEN  DISPLAY  ( • • ) ; 

DISPLAY  ( CARD  ) ; 

GO  TO  RALL  ; 


/**********«**************************/ 


QUIT:  /*  THIS  IS  THE  FORCED-TERMINATION  ROUTINE  */ 

PUT  STRING  (DUNE)  EDIT 

( •**  ERROR  NUMBER  ',  NER,  • HAS  OCCURED  **•  ) 

( A,  F ( 2 ) , A ) ; 

DISPLAY  ( • ' ) ; 

DISPLAY  ( DUNE  ) ; 

DUNE  = EMSGS  ( NER  ) J 

DISPLAY  ( DLINE  ) ; 

DISPLAY  ( ' ' ) 5 

GO  TO  EOJ  ; 


/************ **************** ***•*«**«/ 


/ + FINALLY,  EOF  ON  CARD  FILE  AGAIN  */ 

EOJ : CLOSE  FILE  (CARDS),  FILE  (DINO), 

FILE  ( MR  E F ) ; 

DISPLAY  ( • ' ) ; 

PUT  STRING  (DLINE)  EDIT 


\ 
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277 

278 

279 

280 
281 
282 

283 

284 

285 


PAGE  NUMBER  : 5 

SOURCE  CARO  LISTING  FOR 

P16:  /*  DESCRIPTOR  MASTER  INDEX  MAKEUP  - FR I / 14/ J AN/ 77  */ 

( •**  TOTAL  DESCRIPTOR  INDEX  CARDS  READ  : 't 
NCCt  * **•  ) ( A,  P ' Z » ZZ9 ' • A ) ; 

DISPLAY  ( DLINE  ) ; 

DISPLAY  ( • ' ) 5 

DISPLAY  ( 'MASTER  DESCRIPTOR  INDEX  PROCESSING  ' 

I 'IS  NOW  TERMINATING'  ) ; 

DISPLAY  ( • ' ) ; 

END  P 1 6 ; 
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PAGE  NUMBER 


SOURCE 
P 1 7 : 


CARO 

/* 


LI  STING 
PROJECT 


FOR 

FILE 


INITIALIZATION  - WED/23/FEB/ 77  */ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


P 1 7 : 


34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


/*  PROJECT  FILE  INITIALIZATION  - WED/23/FEB/77  */ 
PROC  IINPARM)  OPTIONS  (MAIN)  ; 


/* 


REVISI3NS  : 
WED/ 23/ FEB/77 


- INITIAL  IMPLEMENTATION. 


WED/02/MAR/77  - 


MODIFIED  TO  INITIALIZE  ONLY  CARD-IMAGE  FILES 
UP  TO  AND  INCLUDING  FILE  ALTP. 


*/ 


SUN/ 20/ MAR/ 77  - MODS  PRIOR  TO  TRANSMIT  TO  NCSS. 


13 

DECLARE 

INPARM 

CHAR 

(100)  VARYING, 

14 

15 

16 

PARM2 

CHAR 

(4)  BASED  (PP)  *, 

DECLARE 

( DISP,  PTR , 

NP AGE , 

OPAGE,  L,  LT,  NC, 

17 

J,  K ) 

FIXED 

BIN  STATIC  5 

18 

19 

DECLARE 

DTYPE  (20) 

CHAR 

(4)  STATIC  INIT  ( 

/* 

FIRST 

13  ARE  C 

20 

•ID'  , 

' REC'  , 

•REJ’,  'REV', 

/* 

IMAGE 

TYPE 

21 

•EXD' . 
•RRPK* , 

•BPT', 

•RKP'.  'RRPJ', 

•VARF*,  'SCEN', 

22 

•VQAL' , 

23 

•ALTP' , 

24 

•REE' , 

•EXC', 

•EXJ',  ' EXV ' , 

/* 

NOS  14 

THRU  20 

25 

' C MR  ' , 

'TRER' , 

* F I NR ' ) ; 

/♦ 

RECFM 

VARIES 

26 

27 

DECLARE 

( FLAGS ( 20  ) , 

I FLAG  ) 

BIT  (1)  STATIC, 
CHAR  (80)  STATIC, 

28 

( CARD,  DL1NE 

) 

29 

F4 

CHAR 

(4)  DEF  CARD, 

30 

F2 

CHAR 

(2)  DEF  CARD, 

31 

FN 

CHAR 

(4)  DEF  CARD  POS 

(3)  » 

32 

FNME 

CHAR 

(8)  STATIC, 

33 

WAY  (14:20) 

LABEL 

» 

*/ 

*/ 


*/ 

*/ 


DECLARE  TTLS 


( 20) 

I D 

REC 

REJ 

REV 

EXD 

BPT 

RKP 

RRPJ 

RRPK 

VQAL 

VARF 

SCEN 

ALTP 

REE 

EXC 

EXJ 

E XV 

C MR 

TRER 

F INR 


CHAR  (40)  STATIC  INIT  ( 

- PROJECT  DESCRIPTION' , 

- COURSES  ROE  SEARCH  ARGUMENTS', 

- TASKS  ROE  SEARCH  ARGUMENTS', 

- VEHICLES  ROE  SEARCH  ARGUMENTS', 
EXTRACT  DEFAULTS' , 

BENEFIT  PATTERN* , 

RISK  PROFILE', 

RISK  REDUCTION  PROJECTS', 

RISK  REDUCTION  PACKAGES', 
VARIABLES  QUALITATIVE', 
VARIABLE  REFERENCES’, 
SCENARIOS' , 

ALTERNATE  PROJECTS', 

RESULTS' , 

- COURSES', 

- JOBTASKS’, 

- VEHICLES', 

RESULTS' , 


- ROE  SEARCH 

- EXTRACT  DB 

- EXTRACT  DB 

- EXTRACT  DB 

- COST  MOOEL 

- TREE  RESULTS', 

- FINANCIAL  RESULTS' 


) 


DECLARE  T 1 CHAR  (18)  STATIC  INIT 

'PAGE  NUMBER  : XXXX'  ), 


( 


TIPGE 
T 2 


PICTURE  ' Z Z Z9 ' DEF  T1  POS  (15), 

), 


CHAR  (80)  STATIC  INIT  ( 
•LOAD  OF  PROJECT  FILETYPE  : XXXX' 


T2TTL  CHAR  (53)  DEF  T2  POS  (28) 

/***«*  *********************  **********41/ 
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SOURCE  CARD  LISTING  FOR 

P 1 7: 

/♦  PROJECT  FILE  INITIALIZATION  - WED/, 

69 

START: 

FLAGS  = ' O' B ; 

70 

NC,  NPAGE • DPAGE , 

71 

Jt  K = 0 ; 

72 

PP  = AD DR  < INPARM)  ; 

73 

74 

0 1 SPLAT  ( • • ) ; 

75 

DISPLAY  ( 'PROJECT  FILE  INITIALIZATION 

76 

DISPLAY  ( • ' ) J 

77 

78 

/* 

HERE,  DEVICE  ASSIGNMENTS  ARE  VERIFIED  */ 

79 

80 

FIRST: 

DISP,  PTR  * 1 ; 

81 

IF  ( PARM2  = 'BOTH'  ) THEN  GO  TO  STEPA 

82 

83 

IF  ( PARM2  = 'TERM'  ) 

84 

THEN  PTR  = 2 ; 

85 

ELSE  DISP  * 2 ; 

86 

87 

/* 

HERE,  PRINTER  DATASET  IS  INITIALIZED  */ 

88 

89 

STEPA: 

IF  ( PTR  * 2 ) THEN  GO  TO  STEPB  ; 

90 

91 

OPEN  FILE  (SYSPRINT) 

92 

LINESIZE  (120)  PAGESIZE  (58)  ; 

93 

94 

ON  ENDPAGE  (SYSPRINT) 

95 

BEGIN  ; 

96 

NPAGE  * NPAGE  ♦ 1 J 

97 

98 

PJT  EDIT  ( 'PAGE  NUMBER  : ',  NPAGE 

99 

( PAGE,  X ( 1 0 > . A,  F ( 4 ) , 

SKIP(l),  X(10),  A,  SKIP(l), 

100 

101 

102 

PJT  SKIP  (l)  ; 

103 

END  ; 

104 

105 

/* 

HERE,  INITIALIZATION  OF  TERMINAL  DATASET 

106 

107 

STEPS: 

IF  ( DISP  = 2 ) THEN  GO  TO  COMMENCE  ; 

108 

109 

ON  CONDITION  ( NEWDP ) 

110 

BEGIN  : 

IF  < LT  < 61  ) THEN  LT  * 61  ; 

111 

112 

113 

IF  ( LT  < 66  > THEN 

114 

LPA : 

DO  L * LT  TO  66  ; 

115 

DISPLAY  ( • • ) ; 

116 

END  LPA  ; 

117 

118 

DISPLAY  ( ' ' ) ; 

119 

120 

DPAGE  * DPAGE  ♦ l ; 

121 

T1PGE  = DPAGE  ; 

122 

DISPLAY  ( Tl  ) ; 

123 

DISPLAY  ( • ' ) J 

124 

DISPLAY  ( T2  ) ; 

125 

DISPLAY  ( ' ' ) ; 

126 

LT  * 4 ; 

127 

END  ; 

128 

129 

/*****************+*******************/ 

130 

131 

COMMENCE:  OPEN  FILE  (CAROS)  RECORD  INPUT  : 

132 

ON  ENDFILE  (CAROS)  GO  TO  PASS2  I 

133 

134 

READ  FILE  (CARDS)  INTO  (CARD)  ; 

135 

NC  * NC  ♦ l ; 

136 

137 

I FLAG  = ' O' B J 

A ) 
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138 

139 
1<*0 
1*1 
1*2 
1*3 
1** 
1*5 
1*6 
1*7 
1*8 
1*9 

150 

151 

152 

153 
15* 

155 

156 

157 

158 

159 

160 
161 
162 
163 
16* 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17* 

175 

176 

177 

178 

179 

180 
181 
182 
183 
18* 

185 

186 

187 

188 

189 

190 

191 

192 

193 
19* 

195 

196 

197 

198 

199 

200 
201 
202 
203 
20* 

205 

206 
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SOURCE  CARO  LISTING  FOR 

P17:  /*  PROJECT  FILE  INITIALIZATION  - WED/ 23/FEB/ 77  */ 


1 THEN 


IF 

( 

F*  = 

• IN  I T 

, 

LP1 : 

do  ; 

IF  LAG 

= *1 

•B 

READ 

FILE 

(C 

NC  * 

NC  ♦ 

1 

END  LPl  ; 

IF 

( 

F2  * 

• **  • 

) 

/* 

HERE, 

FIRST 

CARD 

RE 

T2TTL  = •+**  FI 

RS 

STEPl: 

IF 

( 

PTR  * 

1 ) 

THEN 

SIGNAL 

IF 

( 

DISP 

= l ) 

THEN 

SIGNAL 

ELSE 

DISPL 

AY 

Rl: 

READ 

FI  LE 

(CARDS) 

NC 

— 

NC  ♦ 

l ; 

IF 

( 

F2  = 

• **' 

) 

THEN  GO  TO  STEP2 


/* 

STEP2 


/* 

STEP3 

OUPFN 


IF  ( PTR  * 1 > THEN  PUT  EDIT  (CARD)  ( SKIP(l),  X ( 10 > , A(80)  ) 

IF  ( OISP  = l ) 

THEN  DISPLAY  ( CARD  ) ; 

GO  TO  R1  ; 

HERE,  A TITLE  CARD  HAS  BEEN  FOUND  - VERIFY  IT  */ 

DO  J * 1 TO  13  ; 

K = j • 

IF  ( FISI  ® DTYPE(J)  ) THEN  GO  TO  STEP3  ; 

END  STEP2  ; 

T2TTL  = •***  TITLE  CARD  FILNAME  -•  It  FN 
II  IS  INVALID  ***•  ; 

GO  TO  STEPl  5 

HERE,  NEW  TITLE  (FILE)  HEADER  FOUND;  VERIFY  NON-DUPLICATE  */ 

IF  ( FLAGS(K)  ) THEN 

• II  FN  ||  • - IS  DUPLICATED  ***• 


( FLAGS(K) 

DO  ; 

T2TTL  = •***  FILENAME  - 
GO  TO  STEPl  ; 

END  OUPFN  ; 


FLAGS  (K)  = «l'B  ; 

T2TTL  = TTLS  ( K ) ; 

FNME  = DTYPE  (K)  ; 

OPEN  FILE  ( PRO J ) RECORD  OUTPUT  TITLE  ( FNME  ) 


IF  < PTR 


1 ) THEN  SIGNAL  ENDPAGE  (SYSPRINT) 


IF  ( DI SP  = 1 > THEN  SIGNAL  CONDITION  ( NEWDP ) 
ELSE  DISPLAY  ( T2  ) ; 

/*  HERE  IS  TEXT  LINE  OUTPJT  LOOP  */ 

R2:  READ  FILE  (CARDS)  INTO  (CARD)  ; 

NC  * NC  ♦ l ; 
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208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 


PI  7 : 
LP2: 


/*  PROJECT  FILE  INITIALIZATION  - WED/23/FEB/77  */ 


IF  ( 


F2  * ) THEN 

oo  ; 

CLOSE  FILE  ( PROJ I 
GO  TO  STEP2 
END  LP2  ; 


IF 

IF 


( 


PTR  = l ) 

THEN  PUT  EDIT 

DISP  = 1 ) 
THEN  DISPLAY 


(CARD)  ( SK I P ( 1 ) , X(10),  A ( 80 ) ) 


( CARD  ) ; 
WRITE  FILE  (PROJ)  FROM  (CARD)  J 
GO  TO  R2  5 

/*************************************/ 

/*  HERE,  EOF  ON  INPUT  DATASET  */ 

PASS 2:  CLOSE  FILE  (PROJ),  FILE  (CARDS) 

IF  ( -*I  FLAG  ) THEN  GO  TO  EOJ  ; 


CARD 
T2  * 


IF 

IF 


» • • ; /♦  DUMMY  OUTPUT  RECORD  FOR  FILE  INIT  */ 

•INITIALIZATION  OF  REMAINING  FILES  (IF  ANY)  WITH  A • 

II  'SINGLE  BLANK  RECORD*  *. 

PTR  * 1 ) THEN  SIGNAL  ENDPAGE  (SYSPRINT)  ; 

DISP  = 1 ) THEN  SIGNAL  CONDITION  (N6WDP)  ; 


LP3 : 


DO  J = 1 TO  13 


/*  NOTE  - ONLY  INITIALIZING  CARO 

IMAGE  FILES  UP  THRU  ALTP,  INCL.  */ 


WAY ( l 4 ) 
WAY! 15) 
WAY( 16) 
WAY( 17) 
WAY( 18  ) 
WAY( 19  ) 
WAY (20  I 

WRI TE80 
STEP4: 


IF  ( FLAGS ( J ) ) THEN  GO  TO  LP3END  ; 

OPEN  FILE  (PROJ)  RECORD  OUTPUT  TITLE  ( DTYPE(J) 

IF  ( J <*  13  ) THEN  GO  TO  WRITE80  J 
ELSE  GO  TO  WAY  (J)  ; 

GO  TO  STEP4 
GO  TO  STEP4 
GO  TO  STEP4 
GO  TO  STEP4 
GO  TO  STEP4 
GO  TO  STEP4 
GO  TO  STEP4 
WRITE  FILE  (PROJ) 

(PROJ ) 


FROM  (CARD) 


CLOSE  FILE 

DLINE  = 'FILE 
< 


' II  DTYPE(J)  M 
HAS  BEEN  INITIALIZED  WITH  ONE 


LP3END : 


(1)  BLANK  RECORD* 
IF  ( PTR  * 1 ) THEN  PUT  EDIT  (DLINE)  ( SKIP(2),  X(10), 
DISPLAY  ( * * ) i DISPLAY  ( DLINE  ) J 

END  LP3  ; 


A ) 


/************ *************************/ 
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P 1 7 : /*  PROJECT  FILE 


INITIALIZATION  - WED/ 23/FEB/ 77  */ 


276 

277 

/* 

HERE  IS  THE  END  PROCESSING  */ 

2 78 
279 

EOJ : 

IF  I IF  LAG  > THEN 

280 

LP4 : 

DO  ; 

281 

282 

IF  ( PTR  = 1 ) THEN  PUT  EDIT 

283 

( •**  ALL  DATASETS  INITIALIZED  **'  ) 

284 

( SKIP! 3),  XI 20),  A ) ; 

285 

286 

DISPLAY  ( • ' ) ; 

287 

DISPLAY  ( •**  ALL  DATASETS  INITIALIZED  ** 

288 

289 

END  LP4  ; 

290 

291 

IF  I PTR  = l ) THEN  PUT  EDIT 

292 

( •**  TOTAL  NUMBER  INPUT  CARDS  READ  : • , ! 

293 

( SKIPI3),  X (20) , A,  F ( 4 ) , A ) ; 

294 

295 

PUT  STRING  (DLINE)  EDIT 

296 

( •**  TOTAL  NUMBER  INPUT  CARDS  READ  : ',  1 

297 

C A.  F ( 4 ) , A ) ; 

298 

DISPLAY  { • ' ) J DISPLAY  I DLINE  ) ; 

299 

300 

DISPLAY  ( • ' ) ; 

301 

DISPLAY  < 'PROJECT  FILE  INITIALIZATION  PROGRAM 

302 

li  • IS  NOW  TERMINATING'  ) ; 

303 

DISPLAY  I • ' ) J 

304 

305 

ENO  P 1 7 ; 

NC, 


NC, 


**  • ) 
**'  ) 


t 
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P18:  /♦  IMITIL1ZE  MASTER  REF  FILE  TO  ZERO  - WED/12/ JAN/77  */ 


1 

2 
3 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1* 

15 

16 

17 

18 


P18: 


/* 


*/ 


/*  INITILIZE  MASTER  REF  FILE  TO  ZERO  - WED/12/ JAN/77  */ 
PROC  OPTIONS  IMAIN)  ; 

REV  I S IONS  5 

WED/12/ JAN/77  - FIRST  I MPLEMENTEDED  VERSION. 
M0N/1A/MAR/77  - MODS  TO  PREPARE  FOR  SHIP  TO  NCSS. 


DECLARE 


MAST 
2 REFS 


STATIC, 
UO)  Ft 


OPEN  FILE  ( MREF ) 
REFS  - 0 ; 

WRITE  FILE  ( MREF ) 
CLOSE  FILE  (MREF) 


END  P18 


XED  BIN  ; 

RECORD  OUTPUT  ; 
FROM  (MAST)  ; 
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P20: 


/*  PRINT  ASSIGNED  DESIGNATORS  - WED/ 19/ JAN/77  */ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


P20: 

/* 


*/ 

DECLARE 


/*  PRINT  ASSIGNED  DESIGNATORS  - WED/ 19/ JAN/77  */ 

PROC  (INPARM)  OPTIONS  (MAIN)  5 

REv I S IONS  J 

WED/18/ JAN/77  - STARTED  WITH  COURSE  DESCRIPTORS  ONLY. 
MON/31/ JAN/77  - AODING  VEHICLE  AND  TASK  VARIATIONS. 
SUN/ 20/ MAR/77  - MODS  PRIOR  TO  INSTALLATION  AT  NCSS. 


INPARM 
1 POVER 

2 PARM  CHAR 
2 PARM2  CHAR 
Cl  CHAR 

C4  CHAR 


CHAR  (100)  VARYING* 
BASED  (PP)» 

(1), 

(4)  , 

(1)  STATIC, 

(4)  STATIC, 


( DIND 


D,  VEHS,  TASKS  ) FIL 
KEYED  ENV  ( REGIONAL! 1) 


FILE  RECORD  DIRECT 

9 
» 


) 


DECLARE 


/****** 


DLINE  CHAR  (80)  STATIC, 

CFILL  CHAR  (74)  DEF  DLINE  POS  (7), 

DFILL  CHAR  (68)  DEF  DLINE  POS  (13), 

CARD  CHAR  (80)  STATIC, 

TTL1  CHAR  (42)  STATIC  INIT  ( 

•PAGE  XXXX  : VEHICLE  DESCRIPTOR  ASSIGNMENTS* 
NPGE  PICTURE  ’ ZZ  Z9 • DEF  TTLl  POS  (6), 

TYPE  CHAR  (7)  DEF  TTLl  POS  (13), 

( DISP,  PTR,  LL,  ND,  NC,  NPAGE , DPAGE,  LT,  NREC, 
MAXD , KMAX , J,  CFLAG,  KD,  MAXD2, 

JO.  L,  L NOW  * NER, 

K > FIXED  BIN  STATIC, 

SRET  LABEL  J 

*******************************/ 


), 


42 

DECLARE 

1 0 INDEX 

STATIC 

4 3 

2 DST  ART 

FIXED 

44 

2 DEND 

FIXED 

45 

2 NCAT 

FIXED 

46 

2 NDESC 

FIXED 

47 

2 CATEGORIES 

( 15) , 

48 

3 PC  AT 

FIXEO 

49 

3 SCAT 

FIXED 

50 

3 ECAT 

FIXED 

5i 

2 POESC  (111 

) FIXED 

52 

COVER  (4) 

CHAR  ( 

53 

54 

DECLARE 

l MAST 

STATIC 

55 

2 REFS  (40) 

FIXED 

56 

MREF 

FILE  R 

57 

58 

DECLARE 

l CINDESC 

BASED 

59 

2 CINDS 

CHAR  ( 

60 

2 FILL 

CHAR  ( 

61 

2 DTAB  (100) 

FIXED 

62 

63 

CIN213  CHAR 

(213) 

64 

65 

DECLARE 

1 CINDER  (304) 

STATIC 

66 

2 CHCIN 

CHAR  ( 

67 

2 C IN  PTR 

FIXED 

68 

LOADCIN 

CHAR  ( 

BIN, 

BIN, 

BIN, 

BIN, 

BIN, 

BIN, 

BIN, 

BIN, 

80)  BASED 


/*  OVERALL  DESCRIPTOR  INDEX  */ 
/*  CKF.DESC. INDEX  */ 


(PCOV) 


. /*  COURSE  DESCRIPTORS  */ 

/♦  CKF.CRS. DESC  */ 


STATIC 


/*  CRS  CIN  DIRECTORY  */ 
/*  CKF.CRS.DIRCIN  */ 

BASED  (PLCIN), 
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69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 

til 

113 

114 

115 

116 

117 

118 

119 

120 

Hi 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
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P20:  /*  PRINT  ASSIGNED  DESIGNATORS  - MED/ 19/ JAN/77  */ 


OECLARE 


COVCIN  (4) 

1 VEHDESC 
2 VENDS 
2 VTAB  1100) 


CHAR  (760) 

STATIC, 
CHAR  T 13 ) * 
FIXEO  BIN 


BASED  ( PTCIN)  J 

/♦  VEH  DESCRIPTOR  FILE  */ 
/*  CKF.VEH.DESC  */ 


DECLARE  l VEHOIR  (200) 
2 CHVEH 
2 VEHPTR 
COVVEH  (4) 
LOAOVEH 


STATIC, 

CHAR  ( 13), 

FIXEO  BIN, 

CHAR  (750)  BASED  (PTVEH), 
CHAR  (750)  BASEO  ( PLVEH ) 


/*  VEHICLE  DIRECTORY  */ 
/*  CKF.VEH.DIR  */ 


DECLARE  1 


TASKDESC 
2 TASKDS 
2 TTA8  (100) 

TASKDVER 
2 RATING 
2 RANK 
2 JOBTASK 


STATIC, 

CHAR  ( 13), 
FIXED  BIN, 

BASED  (PTO), 
CHAR  (5), 
CHAR  (2), 
CHAR  (6)  ; 


/*  TASK  DESCRIPTOR  FILE  */ 
/♦  CKF. TASK. DESC  */ 


DECLARE  1 TASKDIR  (1200)  STATIC 


2 CHTASK 
2 TASKPTR 
COVTASK  (12) 
LOADTASK 

DECLARE  l ATASKS 

2 RATING 
2 JOBTASK 
2 TASKTTL 
2 FILL 
2 BILCOST 
2 CC80 

AVEHICLES 
2 STDCKN 
2 OEVDESIG 
2 DEVNAME 
2 DEVCOST 
2 CC80 

VCOST 
VOVER 


l iim  iki 

CHAR  (13), 

FIXED  BIN. 

CHAR  (1500)  BASED  (PTTASK), 
CHAR  (1500)  BASED  ( PLTASK) 


/*  JOBTASK  FILE  DIRECTORY  */ 
/*  CKF. TASK. DIR  */ 


STATIC, 

CHAR  ( 7) , 

CHAR  (6), 

CHAR  (50), 

CHAR  (6), 

PICTURE  ' ( 8 ) 9V99 ' , 
CHAR  (1)  ; 


/*  ABBR.  TASK  FILE  */ 
/*  CKF. ATASKS  */ 


DECLARE  1 


STATIC, 

CHAR  ( 13) , 

CHAR  (9), 

CHAR  (47), 
PICTURE  ' ( 8 ) 9V99 
CHAR  ( 1) , 


FIXED  DEC  (10,2)  STATIC, 
CHAR  (80)  BASED  (PV80)  ; 


/*  ABBR.  VEH  FILE  */ 
/*  CKF.AVEHS  */ 


/***********************♦*************/ 

START:  PP  * ADDR  ( INPARM  ) ; 

PTCIN  « ADDR  (CINDER)  5 
PCOV  * ADDR  (DINDEX)  ; 

PTO  = ADDR  (TASKDESC)  ; 

PV80  * ADDR  (AVEHICLES)  ; 

PTVEH  * ADDR  (VEHDIR)  : 

PTTASK  » ADDR  (TASKDIR)  J 

PTRCIN  = ADDR  ( CIN213  ) ; 

NPAGE , DPAGE , NREC , 

K * 0 ; 

LT  = 100  ; 


COMMENCE: 

OPEN  FILE  (MREF) 
FILE  (DINO) 

READ  FILE  (MREF) 
KM AX  » REFS 
MAXD  ■ REFS 


RECORO  INPUT, 
INPJT  ; 


INTO 
(4)  : 
(2)  i 


(MAST) 
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138 

139 

140 

191 

192 

193 
199 

195 

196 

197 

198 

199 

150 

151 

152 

153 
159 

155 

156 

157 

158 

159 

160 
161 
162 
163 
169 

165 

166 

167 

168 

169 

170 

171 

172 

173 
179 

175 

176 

177 

178 

179 

180 
181 
182 
183 
189 

185 

186 

187 

188 

189 

190 

191 

192 

193 
199 

195 

196 

197 

198 

199 

200 
201 
202 
203 
209 

205 

206 


SOURCE  CARD  LISTING  FOR 

P20:  /*  PRINT  ASSIGNED  DESIGNATORS  - WED/ 19/J AN/77  */ 


/*************************************/ 

/*  HERE,  COURSE  DESCRIPTORS  ARE  SETUP  */ 

TRYC:  IF  ( PARM  *C'  ) THEN  GO  TO  TRYV  ; 

TYPE  3 'COURSE'  ; 

LPl : DO  J 3 1 TO  9 ; 

READ  FILE  (DIND)  INTO  (CARD)  KEY  (J)  ; 
COVER  (J)  3 CARD  ; 

END  LPl  5 

OPEN  FILE  IDESC)  RECORD  INPUT, 

FILE  ( DC  I N ) RECORD  INPUT  ; 

ON  ENDFILE  (DESC)  GO  TO  EOJ  ; 

LP2:  DO  J 3 1 TO  9 ; 

PLCIN  3 ADDR  (COVCINt J) > ; 

READ  FILE  ( DC  I N)  INTO  (LOADCIN)  ; 

END  LP2  ; 

GO  TO  CHECKDEV  ; 

/*  HERE,  VEHICLE  DESCRIPTORS  ARE  INITILIZED  */ 

TRYV:  IF  ( PARM  'V*  ) THEN  GO  TO  TRYT  ; 

TYPE  3 'VEHICLE'  ; 

MAXD  3 REFS  (8)  ; 

PTRCIN  3 ADDR  ( VEHDESC ) ; 

OPEN  FILE  ( VDESC ) RECORD  INPUT, 

FILE  (VEHS)  INPUT, 

FILE  ( DVEH ) RECOR0  INPUT  ; 

ON  ENOFILE  (VDESC)  GO  TO  EOJ  ; 

LP3:  DO  J « 5 TO  8 ; 

READ  FILE  (DIND)  INTO  (CARD)  KEY  (J)  ; 
COVER  ( J - 9 ) 3 CARO  S 
END  LP3  ; 

LP9 : DO  J 3 1 TO  9 ; 

PLVEH  3 ADDR  ( COVVEH(J)  ) J 
READ  FILE  (DVEH)  INTO  (LOAOVEH)  ; 

END  LP9  ; 

GO  TO  CHECKDEV  ; 

/*  HERE,  SETUP  OF  TASK  DESCRIPTORS  */ 

TRYT:  IF  ( PARM  3 *T*  ) THEN  GO  TO  LP5  ; 

ER 1 : NER  3 l ; 

Cl  3 PARM  ; C9  3 PAR  M2  J 

PUT  STRING  (DUNE)  DATA  ( Cl,  C9  ) ; 

GO  TO  BUSTED  ; 

LP5:  00  J 3 9 TO  12  ; 

READ  FILE  (DIND)  INTO  (CARD)  KEY  (J)  ; 
COVER  ( J - 8 ) 3 CARD  5 
END  LP5  ,* 

TYPE  3 'JOBTASK*  ; 

MAXD  3 REFS  (12)  J 
MAX02  3 MAXD  / 2 ; 

PTRCIN  3 ADDR  ( TASKOESC  ) J 

OPEN  FILE  ( TDESC ) RECORD  INPUT, 
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210 
211 
212 
213 
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215 

216 
217 
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219 

220 
221 
222 
223 
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225 

226 

227 

228 

229 

230 

231 

232 

233 
23* 

235 

236 

237 

238 

239 
2*0 
2*1 
2*2 
2*3 
2** 
2*5 
2*6 
2*7 
2*8 
2*9 

250 

251 

252 

253 
25* 

255 

256 

257 

258 

259 

260 
261 
262 
263 
26* 

265 

266 

267 

268 

269 

270 

271 

272 

273 
2 7* 
275 


SOURCE  CARO  LISTING  FOR 

P20:  /*  PRINT  ASSIGNEO  DESIGNATORS  - WED/ 19/ JAN/77  */ 

FILE  (TASKS)  INPUT. 

FILE  IDTASK)  RECORD  INPUT  ; 

ON  ENDFILE  (TDESC)  GO  TO  EOJ  ; 

LP6 i DO  J * l TO  12  ; 

PL  TASK  * ADDR  ( COVTASK(J)  ) ; 

READ  FILE  (OTASO  INTO  (LOADTASK)  ; 

END  LP6  ; 

/*  HERE,  OUTPUT  DEVICE  ALLOCATION  IS  CHECKED  */ 


CHECKDEV: 

DISP,  PTR  » 
IF  ( PARM2 


1 ; 

» 'BOTH*  ) THEN  GO  TO  STEPl 


IF  ( PARM2  = 'TERM'  ) 

THEN  PTR  * 2 J 
ELSE  DISP  * 2 J 

/*  HERE,  PRINTER  DATASET  INITILIZEO  IF  REQUIRED  */ 

STEPl:  IF  ( PTR  * 2 ) THEN  GO  TO  STEP2  ; 

OPEN  FILE  (SYSPRINT)  STREAM  PRINT 

LINESIZE  (120)  PAGESIZE  (60)  ; 

ON  ENOPAGE  (SYSPRINT) 

BEGIN  ; 

NP AGE  » NP AGE  ♦ 1 J 
NPGE  » NPAGE  5 
PUT  EDIT  ( TTL1,  • 


) 


( PAGE.  LINE( 5 ) , X(10),  A(*2),  SKIP(I),  A 
PUT  SKIP  (1)  ; 

END  J 

SIGNAL  ENDPAGE  (SYSPRINT)  ; 

/*  HERE  IS  THE  OISPLAY  ENDPAGE  ROUTINE.  IF  REQUIRED  */ 
STEP2 : IF  ( DISP  * 2 ) THEN  GO  TO  OLOOP  ; 


61 


ON  CONDITION  ( NEWDP ) 

BEGIN  ; 

LVOW  - LT  ; 

IF  ( LT  < 61  ) THEN  LT 

IF  ( LT  < 66  ) THEN 

LP7 : DO  L - LNOW  TO  66  ; 

DISPLAY  ( • • ) ; 

END  LPT  ; 

DISPLAY  ( • • ) ; 

DP AGE  * DP AGE  ♦ 1 ; 

NPGE  * DPAGE  : 

OISPLAY  I TTL1  ) ; 

DISPLAY  ( » • ) *. 

LT  = * ; 

IF  ( PARM  = 'C'  ) THEN  DISPLAY 

( 'DESCRIPTORS  ASSIGNED  TO  COURSES' 
IF  ( PARM  * 'V'  ) THEN  OISPLAY 

( 'DESCRIPTORS  ASSIGNED  TO  VEHICLES' 
IF  ( PARM  * *J»  ) THEN  DISPLAY 

( 'DESCRIPTORS  ASSIGNED  TO  TASKS'  ) 
DISPLAY  ( • • ) J 

LT  * LT  ♦ 2 ; 

END  ; 
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P20: 

/*  PRINT  ASSIGNED  DESIGNATORS  - WED/ 19/ JAN/77 

27  6 
217 

/I************************************/ 

270 

279 

/* 

THIS  IS  THE  PROGRAM  MAINLINE  */ 

280 

DLOOP: 

IF  ( PARM  * 'T*  ) THEN  GO  TO  TLOOP  J 

281 

202 

283 

IF  < PARM  = 'V'  ) THEN  GO  TO  VLOOP  ; 

CLOOP: 

READ  FILE  (DESC)  INTO  (CINDESC)  i 

284 

285 

NREC  = NREC  ♦ 1 ; 

286 

287 

DLINE  = • C I N : • ||  C INDS  ; 

208 

LOOKCI 

N:  D3  J s 1 TO  MAXD  ; 

289 

IF  ( CINOS  * CHCIN(J)  ) THEN  GO  TO  STEP3  ; 

290 

291 

END  LOOKCIN  ; 

292 

SUBSTR  ( DLINE,  17  1 * 

293 

294 

•(NO  MATCHING  NI TRAS  OATA  AVAILABLE)'  J 

295 

296 

GO  TO  STEP3  ; 

297 

298 

/* 

FOLLOWING  IS  THE  VEHICLE  FIRST  LINE  SETUP  */ 

299 

VLOOP: 

READ  FILE  (VDESC)  INTO  (VEHDESC)  ; 

300 

301 

NREC  * NREC  ♦ 1 ; 

302 

303 

DLINE  = VEHDS  ; 

304 

LOOKV: 

DO  J = l TO  MAXD  ; 

305 

k = j ; 

306 

IF  ( VEHDS  - CHVEH(J)  ) THEN  GO  TO  F INDV  ; 

307 

308 

END  LOOKV  ; 

309 

SUBSTR  ( DLINE,  15  ) = 

310 

•/  **  NO  MATCHING  DATA  IN  VEHICLE  FILE  **' 

311 

312 

GO  TO  STEP3  5 

313 

F INDV: 

READ  FILE  (VEHS)  INTO  (AVEHICLES)  KEY  ( VEHPTR ( K 
SUBSTR  ( DLINE.  15  ) * •/  • IT  DEVDESIG 
II  •/•ll  DEVNAHE  ; 

314 

315 

316 

317 

318 

GO  TO  STEP3  ; 

319 

320 

/* 

FOLLOWING  IS  SETUP  OF  FIRST  LINE  FOR  TASKS  */ 

321 

TLOOP: 

READ  FILE  (TDESC)  INTO  (TASKDESC)  *. 

322 

323 

NREC  * NREC  «■  1 ; 

324 

DLINE  = TASKOVER. RATING  II  * / * 

325 

II  TASKOVER. RANK  Tl  • / • 

326 

327 

II  TASKOVER. JOBTASK  ; 

328 

IF  ( TASKDS  <=  CHTASK ( MAXD2 ) ) 

329 

THEN 

330 

DO  J » 1 TO  MAXD 2 5 

331 

K * J ; 

332 

IF  ( TASKOS  * CHTASK ( J ) ) THEN  GO  TO  FINDT 

333 

334 

END  ; 

335 

ELSE 

336 

DO  J * HAX02  TO  MAXD  ; 

337 

K * J ; 

338 

IF  ( TASKDS  * CHTASK ( J ) ) THEN  GO  TO  FINDT 

339 

340 

END  ; 

341 

SUBSTR  ( DLINE,  23  ) = 

342 

•***  NO  MATCHING  DATA  IN  TASK  FILE  ***•  ; 

343 

34A 

GO  TO  STEP3  ; 
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PAGE  NUMBER  : 6 

SOURCE 

CARD  LISTING  FOR 

P20: 

/*  PRINT  ASSIGNED  DESIGNATORS  - WED/ 19/ JAN/77  */ 

3*5 

FINDT: 

READ  FILE  I TASKS ) INTO  (ATASKS)  KEY  ( TASKPTR ( K ) ) ; 

3*6 

3*7 

SUBSTR  ( OLINE,  23  ) = TASKTTL  ; 

3*8 

* 

3*9 

GO  TO  STEP3  ; 

350 

351 

/*  HERE,  FIRST  LINE  IS  OUTPUT  */ 

352 

353 

STEP3*. 

LL  = 1 ; 

35* 

SRET  = STEP*  1 

355 

GO  TO  OUTLOOP  ; 

356 

357 

/*  NOW,  BACK  FROM  FIRST  LINE  OUTPUT  */ 

358 

359 

STEP*: 

ND  = 0 ; /*  DTA8  SS  */ 

360 

CFLAG  * 0 ; /*  CATAGORY  PRINT  FLAG; 

0 MEANS 

361 

NC  * l ; /*  CATEGORIES  SS  */ 

362 

363 

STEP5: 

IF  < ND  >*  100  ) THEN  GO  TO  DLOOP  ; 

36* 

365 

ND  * ND  «-  l ; 

IF  ( DTAB(ND)  = 0 ) THEN  GO  TO  STEP5  ; 

366 

367 

368 

JD  * DTAB  (ND)  ; /*  FOUND  A NON-O  DESCRIPTOR  ♦/ 

369 

KD  =*  PDESC  (ND)  ; /*  PTR  TO  DESCRIPTOR  CARD  */ 

370 

371 

IF  ( KD  * JD  ) THEN  GO  TO  STEP6  ; 

372 

ER2 : 

NER  » 2 ; 

3 73 

ER2A: 

PUT  STRING  (DLINE)  DATA  ( ND,  JD,  KD, 

KMAX  ) ; 

37* 

GO  TO  BUSTED  ; 

375 

376 

STEP6: 

IF  ( KD  <*  KMAX  ) THEN  GO  TO  STEP7  ; 

377 

ER3: 

NER  = 3 ; 

378 

GO  TO  ER2A  ; 

379 

380 

STEP7 : 

IF  ( ND  >«  SCAT ( NC ) ) THEN  GO  TO  STEP9  ; 

381 

382 

STEP8: 

NC  * NC  «•  l ; 

383 

CFLAG  « 0 ; 

38* 

IF  ( NC  <*  15  ) THEN  GO  TO  STEP7  ; 

385 

ER*: 

NER  * * ; 

386 

GO  TO  ER2A  ; 

387 

388 

STEP9: 

IF  ( ND  * SCAT ( NC ) ) THEN  GO  TO  STEPIO  ; 

389 

390 

IF  ( ND  > EC AT ( NC ) ) THEN  GO  TO  STEP8  ; 

391 

392 

STEPIO: 

IF  ( CFLAG  0 ) THEN  GO  TO  DETOUT  ; 

393 

39* 

/*  HERE,  CATAGORY  LINE  IS  OUTPUT  */ 

395 

396 

CATOUT: 

READ  FILE  (DIND)  INTO  (CARD)  KEY  ( PCAT(NC) 

) ; 

397 

DLINE  * ' • ; 

398 

CFILL  * CARD  ; 

399 

LL  = 2 ; 

*00 

CFLAG  = 1 ; 

*01 

SRET  = DETOUT  ; 

*02 

GO  TO  OUTLOOP  ; 

*03 

*0* 

/*  HERE,  DETAIL  LINE  IS  OUTPUT  */ 

*05 

*06 

DETOUT: 

READ  FILE  (DIND)  INTO  (CARD)  KEY  ( KD  ) ; 

*07 

DLINE  * • ' ; 

*08 

DF ILL  * CARD  ; 

*09 

LL  = 3 ; 

*10 

SRET  * STEPS  ; 

GD  TO  OUTLOOP  ; 

*11 

*12 

*13 

/**************************** **♦ ******/ 

T */ 
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PAGE  NUMBER 


4 1 A 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 


SOURCE  CARD  LISTING  FOR 

P20:  /*  PRINT  ASSIGNED  DESIGNATORS  - WED/ 19/ JAN/77  */ 


/*  THIS  IS  THE  COMBINED  DISPLAY  / 

OUTLOOP:  IF  < DISP  = 2 ) 

THEN  GO  TO  TRYPTR  ; 


PRINTER  OUTPUT  ROUTINE  */ 
/*  FIRST,  TRY  DISPLAY  */ 


LINE1 


IF 


l ) THEN 


( LL 
DO  ; 

IF  ( LT  > 60  ) 

THEN  DO  ; 

SIGNAL  CONDITION  I NEWDP ) 
END  ; 


DB1 : 
DB2: 


LINE2: 


ELSE  DO  ; 

LT  = LT  ♦ 
DISPLAY  l 
DISPLAY  ( 
END  ; 


) ; 
) ; 


GO  TO  DCCOUT 
END  LINE1  ; 


IF  ( LL 
DO 
IF 


= 2 ) THEN 

I LT  > 61  ) 

THEN  DO  ; 

SIGNAL  CONDITION  (NEWDP) 
GO  TO  DCCOUT  ; 

END  ; 


ELSE  DO  5 

LT  “ LT  * 2 » 

GO  TO  DB2  ; 

END  ; 

END  LINE2  ; 


LINE3:  IF  ( LT  > 62  ) 


THEN  SIGNAL  CONDITION  (NEWDP) 
ELSE  LT  = LT  ♦ 1 ; 


DCCOUT: 

TRYPTR: 


DISPLAY  ( DLINE 
IF  ( 


PTR  ■ 2 ) /*  PRINTER  SERVICING  ATTEMPTED  HERE  */ 

THEN  GO  TO  SRET  ; /*  OTHERWISE,  RETURN  TO  CALLER  */ 


IF  ( LL  < 3 ) 

THEN  IF  ( LL 


) THEN  PUT  SKIP  (2)  ; 
ELSE  PUT  SKIP  (1)  ; 


PTROUT : PUT  EDIT  ( DLINE  ) ( SKIP(l),  A(80>  ) ; 

GO  TO  SRET  ; /*  RETURN  TO  SUBROUTINE  CALLER  ♦/ 

/ft************************************/ 

/*  THIS  IS  THE  ERROR  PROCESSOR  */ 

BUSTED:  PUT  STRING  (CARD)  LIST 

( • **  ERROR  NUMBER  ' II  NER  II  • HAS  OCCURED  *«"  ) 

IF  ( DISP  * 1 ) THEN 
DCCERR:  DO  : 

DISPLAY  ( • • ) ; 

DISPLAY  ( • • ) ; 

DISPLAY  ( CARD  ) ; 

DISPLAY  ( ' • ) ; 

DISPLAY  ( DLINE  ) ; 

DISPLAY  ( • * > J 

END  DCCERR  ; 
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*83 

*8* 

*85 

*86 

*87 

*88 

*89 

*90 

*91 

*92 

*93 

*9* 

*95 

*96 

*97 

*98 

*99 

500 

501 

502 

503 
50* 

505 

506 

507 

508 


PAGE  NUMBER  : 8 

SOURCE  CARD  LISTING  FOR 

P20:  /*  PRINT  ASSIGNED  DESIGNATORS  - WED/ 19/ JAN/77  */ 

IF  < PTR  « 1 ) THEN 

PUT  EDIT  ( CARD*  DLINE  ) 

( SKIP  (3)*  A ( 80  ) » SK  IP ( 2 ) * A(80)  ) *. 

/****« »*******************************/ 


/*  THIS  IS  THE  ENDFILE  PROCESSOR  */ 

EOJ:  PUT  STRING  (DLINE)  EDIT 

( • **  RECOROS  PROCESSED 

( A*  F ( * ) * A ) i 

IF  ( DISP  » 2 ) THEN  GO  TO  STEP11 


DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 
DISPLAY  ( 


• ' ) 

DLINE  ) 

' • ) 

• • ) 


STEP11;  IF  ( 


PTR  « 1 ) THEN 
PUT  EDIT  ( DLINE) 


NRECi 


**•  ) 


( SK I P ( 3 ) ♦ A ( 80 ) ) 


CLOSE  FILE  (DIND),  FILE  ( MREF ) * 
FILE  (SYSPRINT)  ; 


END  P20 


/ 
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APPENDIX  E 

AN  INTERACTIVE  COMPUTER  INTERVIEW 


This  technique  for  probability  encoding  was  reproduced  from  a report 
titled  PROBABILITY  ENCODING  IN  DECISION  ANALYSIS*  with  the  permission 
of  one  of  its  authors.  Dr.  Carl  S.  Spetzler. 


* Spetzler,  Carl  S.  and  Stael  von  Holstein,  Carl -Axel  S.,  1972. 
Probability  Encoding  in  Decision  Analysis.,  Paper  presented  at 
the  ORSA-TiMS-AIEE  1972  Joint  National  Meeting,  Atlantic  City,  N.  J., 
8-10  November  1972.  Stanford  Research  Institute,  Menlo  Park, 
California. 
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Appendix  B 

AN  INTERACTIVE  COMPUTER  INTERVIEW 


B.l  Introduction 

This  appendix  contains  a sample  session  with  the  PEP  program  (Prob- 
ability Encoding  Program)  developed  by  the  Decision  Analysis  Group  at 
Stanford  Research  Institute.  This  program  is  an  interactive  computer 
interview,  which  is  based  on  the  interval  method  for  encoding.  The 
subject  is  always  given  two  or  three  intervals  on  which  to  bet  and  is 
asked  to  order  the  intervals  in  terms  of  his  preferences.  The  program 
relies  on  an  algorithm  that  finds  the  indifference  point (s)  by  an  iter- 
ative procedure.  An  opportunity  always  exists  for  the  subject  to  bypass 
the  iteration  if  he  has  decided  on  the  indifference  point.  The  program 
asks  seven  aeta  of  questions,  and  the  fractlles  corresponding  to  the 
probability  levels  1/6,  1/3,  1/2,  2/3,  and  5/6  can  be  inferred  from  the 
answers.  In  fact,  each  fractile  is  encoded  twice  to  provide  a consis- 
tency check.  The  distribution  is  displayed  in  graphical  and  tabular  form, 
and  the  subject  is  then  made  aware  of  any  inconalstencies. 

B.2  A Sample  Seaslon 

The  easiest  way  to  demonstrate  the  program  la  by  means  of  a sample 
session.  The  following  example  required  roughly  25  minutes  and  cost 
around  $9.00.  The  Inatructiona  part  took  up  some  of  the  time;  an  experi- 
enced user  would  find  the  length  of  the  aeaalon  to  be  between  10  and  15 
minutes.  All  inputs  by  the  subjects  are  underlined. 
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********  ****************************************  +•**•*++*+ ++++++*+** 

* NELCOME  TO  THE  DECISION  ANALYSIS  PROBABILITY  ENCOOINO  PROGRAM(PEP)  * 
************************************************************************ 


PLEASE  type  your  name-cahl-ax^stael  von  HOLSTEIN 


DO  YOU  NEED  INSTRUCTIONS? 

THIS  PROGRAM  MEASURES  YOUR  PERSONAL  JUDGEMENT  ABOUT 
AN  UNCERTAIN  OUANTITY.  YOUR  JUDGEMENT  IS  THEN  INTERPRETED 
AS  A PROBABILITY  DISTRIBUTION.  KNONLEDGE  ABOUT  PROBABILITY 
MILL  NOT  NECESSARILY  HELP  YOU.  THERE  ARE  ALSO  NO  RIGHT 
OR  NROnG  ANSHERS  BECAUSE  YOUR  JUDGEMENT  IS  UNIQUE. 


SO  RELAX  AND  TRY  TO  RESPOND  NITH  YOUR  JUDGEMENT. 


MOST  OF  THE  QUESTIONS  nILL  BE  IN  A FORM  NHERE  YOU  NEED 
TO  MAKE  DECISIONS.  YOU  NILL  BE  GIVEN  EITHER  TNO  OR 
THREE  NUMBERED  RANGES.  YOU  NILL  BE  ASKED  TO  DECIDE 
NHICH  OF  THE  RANOES  ARE  THE  MOST  LIKELY. 


OWE  NAY  TO  ANSNER  THE  QUESTIONS  IS  TO  ASK  YOURSELF* 
“WHICH  OF  THESE  RANGES  WOULD  I PREFER  TO  BET  ON7" 

YOU  ARE  EXPECTED  TO  ORDER  THE  RANGES  In  TERMS  OF  YOUR 
PREFERENCES.  FOR  EXAMPLE,  IF  ONLY  TNO  RANGES  ARE  GIVEn, 
YOU  SIMPLY  TYPE  '12'  OR  '21'.  IF  YOU  ARE  GIVEN  THREE 
RANGES  AND  IF  YOU  PREFER  3 TO  2 AND  2 TO  I,  YOU  TYPE 
'321'.  IF  YOU  THINK  3 AND  2 ARE  ABOUT  EQUALLY  LIKELY 
BUT  PREFER  3 AwD  2 TO  RANGE  I,  TYPE  '3-21'. 

THE  PROGRAM  NILL  ATTEMPT  TO  FIND  RANGES  THAT  ARE  EQUALLY 
LIKELY  IN  YOUR  JUDGEMENT.  WHEN  YOU  HAVE  REACHED  THIS 
POINT  TYPE  'EQ'  OR  '1-2'  OR  '1-2-3'. 

YOU  ARE  ALSO  ALLONEO  A NUMBER  OF  OTHER  RESPONSES. 


DO  YOU  NISH  TO  SEE  THE  ENTIRE  LIST?  t£5 
RESPONSES  MEANING 


12,21  YOU  ARE  COMPARING  TWO  NUMBERED  RANGES. 

YOU  PREFER  THE  FIRST  NUMBERED  RANGE 
TO  THE  SECOND. 


1 23, 32 1, ETC...  YOU  ARE  COMPARING  THREE  NUMBERED 

RANGES.  YOU  PREFER  THE  FIRST 
NUMBERED  RANGE  TO  THE  SECOND  AND  THE 
SECOND  TO  THE  THIRD,  ETC... 

1-23, 2-31, ETC...  YOU  ARE  AGAIN  COMPARING  THREE  NUM- 

BERED  RANGES.  THE  EOUAL  SION  INDI- 
CATES EOUALLY  LIKELY  RANGES. 

THE  RAnOES  ARE  STILL  ORDERED  BY 
DESIRABILITY  OR  PREFERENCE. 


EO, EQUAL  IN  YOUR  JUDOEmENT  THE  RANOES  ARE  EQUALLY 

LIKELY.  '1-2-3'  AND  '1-2'  ARE  EQUIVALENT 
TO  TYPINO  'EQ'. 


B AC, BACK  UP  YOU  NISH  TO  CHANOE  A PREVIOUS  RESPONSE. 

YOU  MAY  BACK  UP  A MAXIMUM  OF  FIVE  LINES 
BY  REFERENCING  A LINE  NUMBER.  YOU  MAY 
ALSO  RETURN  TO  THE  START  OF  A SECTION  OF 
QUESTIONS  BY  TYPINO  THE  SECTION  LETTER. 
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TER. TERMINATE  YOU  NAnT  TO  JUMP  OVER  THE  BEST  OF  THE 

OUESTIOnS  Ai'.D  SEE  THE  OUTPUTS. 

SKI, SKIP  YOU  KnON  NHAT  VALUES  DIVIDE  THE  RANGES. 

THE  PROGRAM  WILL  REQUEST  THAT  YOU  TYPE 
THEM  IN  DIRECTLY.  SIMPLY  TYPE  IN 
YOUR  VALUES  WHEN  THE  '?'  APPEARS. 


DIP, DIFFERENCE  THE  PROGRAM  PRINTS  THE  DIFFERENCES 

BETWEEN  THE  RAnGE  BOUhDRARIES. 

SUP, SUPPRESS  THE  PROGRAM  STOPS  PRINTING  DIFFERENCES. 


qui.ouit  quit  entirely,  you  want  to  jump  over 

THE  REST  OF  THE  QUESTIONS  AND  THE  OUTPUT 


WITH  THIS  INFORMATION,  GO  AHEAD  AND  TRY  THE  PROGRAM. 

ALL  OF  YOUR  RESPONSES  MUST  BE  TERMINATED  BY  PRESSING  THE 
RETURN  KEY.  F'EEL  FREE  TO  ASK  FOR  more  INFORMATION  AT  AnY 
TIME.  JUST  TYPE  THE  NORD  'HELP'. 


NHAT  VARIABLE  IS  TO  BE  INVESTIGATED  ? PROJECTED  SALES 

DOES  PROJECTED  SALES  HAVE  UPPER  AnD  LONER  LIMITS  ? YES 
NHAT  IS  THE  UPPER  LIMIT  ? £00 

WHAT  IS  THE  LOnER  LIMIT  ? U2Q 


[The  program  aeta  a limit  to  infinity  if  the 
limit  it  said  not  to  exiat.  ] 


RANGE I RANGED 


LInE# 

FROM 

TO/FROM 

TO 

1 

100. 

300. 

500. 

12 

2 

100. 

195. 

500. 

12 

3 

100. 

147. 

500. 

2! 

4 

100. 

170. 

500. 

2J 

b 

too. 

IB3. 

500. 

12 

6 

100. 

176. 

500. 

2i 

7 

IDO. 

IBO. 

500. 

[180  ia  the  1/2  - fractile.] 


E-5 


» 

i 


TAEG  REPORT  NO.  40 


RANGE I RAnGE2  RAnGE3 
LInE#  FROM  TO/FROM  TO/FROM  TO 


I 100.  13V.  322.  500.  HELP 

THREE  RANGES  WERE  JUST  PRINTED  OUT.  YOU  ARE  EXPECTED 
TO  ORDER  THESE  THREE  RANGES  In  ACCORDANCE  nITH  THEIR 
DESIRABILITY. 

FOR  EXAMPLE.  IF  YOU  RRFFEH  THE  SECOND  RANGE  TO  THE 
FIRST  RANGE  ANU  THF.  FIRST  RA.iGE  TO  THE  THIRD.  YOU 
SHOULD  RESPOND  ttITH  '213'.  YOU  ARE  ALLOWED  Tv)  USE 
An  EOUAL  SIGN  TO  I nD  I CATE  EQUALLY  LIKELY  RANGES, 

SUCH  AS  * I 2-3" . THIS  WOULD  ME An  YOU  CONSIDER  THE 
SECOnO  AnD  THIRD  RAnGF.S  TO  BE  EOUALLY  LIKELY. 

BUI  PREFER  THE  FIRST  RANGE  TO  BOTH. 


RANGE  I RAnGE2  RAnGE 3 


LINE* 

FROM 

TO/FROM 

TO/FROM  TO 

1 

100. 

139. 

322.  500. 

213 

2 

100. 

139. 

248.  500. 

213 

3 

100. 

139. 

213.  500. 

DIFFERENCES 

3 

100. 

(39.2) 

139.  (73.8)  213. 

(287. ) 

500 

4 

100. 

(59.2) 

159.  (53.8)  213. 

(287.) 

500 

5 

100. 

(49. 1 ) 

149.  (47.0)  196. 

(304. ) 

500 

6 

100. 

(54.1  ) 

154.  (33.7)  188. 

(312. ) 

500 

/ 

100. 

(5ft.O) 

157.  (35.3)  192. 

(308. ) 

500 

[157  and  192  are 
respectively.  ] 

the  1/3-  and  2/3-fractilei, 

LIwE* 

FROM 

RANGE l"  RANGE2 

TO/ FROM  TO 

1 

100. 

(28. 3) 

I2H.  (28.3)  157. 

SUPPRESS 

1 

100. 

128. 

157.  I_2 

2 

100. 

114. 

157.  l\ 

3 

1 00. 

121  . 

157.  £1 

4 

100. 

125. 

157.  [-2 

[125  is  the  1/6-fractile  since  it  divides  an 
interval  with  probability  1/3  into  two  equally 
likely  intervals.  ] 
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RANGE I RANCE2 


LInE# 

FROM 

TO/FROM 

TO 

1 

rfHERE 

l 92 . 
TO  ? 

346. 

C 

500. 

BACK 

[The  subject  realized  that  his  indifference 
point  should  be  127  for  the  range  in  Set  C.  ] 


RANGE  I RAr»GE2 


LINE# 

FROM 

ro/FR()M 

" TO 

1 

100. 

128. 

157. 

SKIP 

1 

too. 

? U7 

1 

too. 

127. 

157. 

EQ 

LInE# 

RANGE  1 RANGE2 

FROM  TO/FROM  TO 

1 

192. 

346. 

500. 

ii 

2 

192. 

265. 

500. 

SKI 

2 

192. 

? 230 

2 

192. 

230. 

500. 

EO 

THIS  EnUS  THE  FIRST  GUEST  10*  SET, A SHORTER  SET  FOLLOWS — PLEASE  CONTINUE. 


[230  is  the  5/6  fractilc.  The  first  four  sets 
of  questions  have  established  one  value  for 
each  of  the  five  fractiles.  The  next  three 
sets  are  used  for  a consistency  check.  The 
subject  can  terminate  the  interview  at  this 
point  (and  anywhere  else,  too)  and  go  directly 
to  the  outputs.  ] 
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RAnGEI  RAwGE2  RANGE 3 


LImE# 

FROM 

TO/ FROM 

TO/FROM 

TO 

1 

100. 

121  . 

161  . 

180. 

213 

2 

rtHERE 

100. 
ro  ? 

121 . 
1 

151  . 

180. 

BACK 

1 

100. 

121  . 

161  . 

180. 

221 

2 

100. 

131 . 

161  . 

180. 

231 

3 

100. 

137. 

161  . 

180. 

12-3 

4 

100. 

1 34. 

151. 

180. 

31-2 

5 

100. 

135. 

156. 

180. 

1-2-3 

[The  whole  range  was  assigned  probability  1/2 
in  Set  135  and  156  are  therefore  the  1/6- 
and  1 /3-fractiles.  ] 


— — 

RANGE  1 RANGE2 


LI. mE# 

FROM 

TO/FROM. 

TO 

I 

157. 

174. 

192. 

2_l 

2 

157. 

183. 

192. 

l_2 

3 

157. 

1 79. 

192. 

£0 

c 1 79  is  a new  value  for  the  median  (the  1/2- 
fractile)  since  the  limits  of  the  range  corre- 
sponded to  the  probability  levels  1/3  and  2/3 
in  Set  B.  ] 


DON'T  GIVE  UP— THIS  IS  THE  LAST  ONE 
RANGE  I RANGE2  RANGE 3 


LInE# 

FROM 

TO/FROM  TO/FROM 

TO 

1 

180. 

195. 

341. 

500. 

SKI 

1 

1 80. 

7 

Q2I0 

NHAT  ? 

.2*0 

1 

180. 

210. 

? 290 

1 

180. 

210. 

290. 

500. 

£2 

[Z» 

0 and 

290  arc 

new  values 

for  the 

2/3-  and 

5/6-fractiles.  ) 
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PLEASE  MOLL  THE  PAPER  FORWARD  AND  HIT  CARRIAGE  RETURN 


** ****************************  ******************** *• ************ 

* PEP  « OUTPUT  * 

**  *******  ************************************* ****************** 

VARIABLE  NAME i PROJECTED  SALES  DATE  11/16/72 


PREPARED  BY  CARL-AXEL  STALL  VI),.  HOLSTEIu 

♦ ' ♦♦♦♦♦♦♦  **4.4.**  ♦♦♦♦♦♦♦  ♦♦♦♦♦♦♦♦♦'  ♦♦♦♦♦♦♦♦♦  ' ♦♦♦♦♦♦♦ 

1.000-  * 

♦ 

* 

♦ 

♦ * ♦ 

0.8000- 

♦ 

♦ 

♦ * ♦ 

♦ 

0.6000- 

♦ 

♦ 

♦ 0 


0.4000- 

♦ 

♦ 0 
♦ 

♦ 

0.2000- 

♦ *♦ 

♦ 

♦ 

♦ 

0.00-  0 

♦ ' ♦♦♦♦♦♦♦♦♦'  ♦♦♦♦♦♦♦♦♦  ' ♦♦♦♦♦♦♦♦♦'  ♦♦♦♦♦♦♦♦♦'♦♦♦ 

-100.0  0.00  100.0  200.0  JOO.O  400.0  500.0 


CUMULATIVE 

PROBABILITY 

TABLE 

PROBABILITY 

THAT  X 

IS  LESS  THAN 

( *•** ) 

( ♦♦♦♦ ) 

1 .00 

500. 

500. 

.dJJ 

2 JO. 

290. 

.667 

192. 

2)0. 

.500 

180. 

179. 

.33  3 

157. 

156. 

.167 

127. 

135. 

.000 

too. 

too. 

[The  subject  can  now  see  some  Inconsistencies, 
especially  at  the  high  end.  The  5/6-fractile  was 
first  inferred  to  be  230  from  Sed  D and  later  to 
be  290  from  Set  F.  The  subject  now  has  to  re- 
concile the  inconsistencies,  but  that  is  done 
outside  of  the  program.  ] 
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